pkg/salt_plume/salt_plume_diagnostics_fill.F

e4775240e5 Dimi*0001 #include "SALT_PLUME_OPTIONS.h"
                0002
                0003 CBOP 0
762bde3a3e Dimi*0004 C     !ROUTINE: SALT_PLUME_DIAGNOSTICS_FILL
                0005 C     !INTERFACE:
e4775240e5 Dimi*0006       SUBROUTINE SALT_PLUME_DIAGNOSTICS_FILL(
                0007      I             bi, bj, myThid )
                0008
                0009 C     !DESCRIPTION:
                0010 C     Provide the information for the diagnostics
                0011
                0012 C     !USES:
                0013       IMPLICIT NONE
                0014 #include "SIZE.h"
                0015 #include "EEPARAMS.h"
                0016 #include "PARAMS.h"
                0017 #include "SALT_PLUME.h"
                0018
                0019 C     !INPUT PARAMETERS:
                0020       INTEGER bi,bj
                0021       INTEGER myThid
                0022 CEOP
                0023
762bde3a3e Dimi*0024 #ifdef ALLOW_SALT_PLUME
f86ab6f461 Jean*0025 #ifdef ALLOW_DIAGNOSTICS
e4775240e5 Dimi*0026 C     !LOCAL VARIABLES:
                0027
                0028       IF ( useDiagnostics ) THEN
                0029
                0030 C-    Salt plume depth (>0), [m]
f86ab6f461 Jean*0031        CALL DIAGNOSTICS_FILL( SaltPlumeDepth,
e4775240e5 Dimi*0032      &                             'oceSPDep',0, 1,0,1,1,myThid )
                0033
ba0b047096 Mart*0034 C-    net Salt plume flux into the ocean during freezing (+=down), [g/m2/s]
f86ab6f461 Jean*0035        CALL DIAGNOSTICS_FILL( saltPlumeFlux,
e4775240e5 Dimi*0036      &                             'oceSPflx',0, 1,0,1,1,myThid )
1f89baba18 Patr*0037 #ifdef SALT_PLUME_VOLUME
                0038        CALL DIAGNOSTICS_FILL(
                0039      &      SPbrineVolFlux,'oceSPvol',0,1,0,1,1,myThid )
                0040        CALL DIAGNOSTICS_FILL(
                0041      &      SPforcS1,'SPforcS1',0,1,0,1,1,myThid )
                0042        CALL DIAGNOSTICS_FILL(
                0043      &      SPforcT1,'SPforcT1',0,1,0,1,1,myThid )
                0044        CALL DIAGNOSTICS_FILL(
                0045      &      dSPvolSurf2kLev, 'SPVsuf2k',0,Nr,0,1,1,myThid )
                0046        CALL DIAGNOSTICS_FILL(
                0047      &      dSPvolkLev2Above,'SPVk2m  ',0,Nr,0,1,1,myThid )
                0048 #endif
e4775240e5 Dimi*0049       ENDIF
                0050
f86ab6f461 Jean*0051 #endif /* ALLOW_DIAGNOSTICS */
762bde3a3e Dimi*0052 #endif /* ALLOW_SALT_PLUME */
                0053
e4775240e5 Dimi*0054       RETURN
                0055       END