File indexing completed on 2021-04-08 05:12:21 UTC
view on githubraw file Latest commit ba0b0470 on 2021-04-08 01:06:32 UTC
e4775240e5 Dimi*0001 #include "SALT_PLUME_OPTIONS.h"
0002
0003
762bde3a3e Dimi*0004
0005
e4775240e5 Dimi*0006 SUBROUTINE SALT_PLUME_DIAGNOSTICS_FILL(
0007 I bi, bj, myThid )
0008
0009
0010
0011
0012
0013 IMPLICIT NONE
0014 #include "SIZE.h"
0015 #include "EEPARAMS.h"
0016 #include "PARAMS.h"
0017 #include "SALT_PLUME.h"
0018
0019
0020 INTEGER bi,bj
0021 INTEGER myThid
0022
0023
762bde3a3e Dimi*0024 #ifdef ALLOW_SALT_PLUME
f86ab6f461 Jean*0025 #ifdef ALLOW_DIAGNOSTICS
e4775240e5 Dimi*0026
0027
0028 IF ( useDiagnostics ) THEN
0029
0030
f86ab6f461 Jean*0031 CALL DIAGNOSTICS_FILL( SaltPlumeDepth,
e4775240e5 Dimi*0032 & 'oceSPDep',0, 1,0,1,1,myThid )
0033
ba0b047096 Mart*0034
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