| File |
Line number |
Procedure |
Code |
|
./model/src/do_oceanic_phys.F |
217 |
DO_OCEANIC_PHYS |
INTEGER doDiagsRho |
|
./model/src/do_oceanic_phys.F |
237 |
DO_OCEANIC_PHYS |
doDiagsRho = 0 |
|
./model/src/do_oceanic_phys.F |
241 |
DO_OCEANIC_PHYS |
& doDiagsRho = doDiagsRho + 1 |
|
./model/src/do_oceanic_phys.F |
243 |
DO_OCEANIC_PHYS |
& doDiagsRho = doDiagsRho + 2 |
|
./model/src/do_oceanic_phys.F |
245 |
DO_OCEANIC_PHYS |
& doDiagsRho = doDiagsRho + 4 |
|
./model/src/do_oceanic_phys.F |
247 |
DO_OCEANIC_PHYS |
& doDiagsRho = doDiagsRho + 8 |
|
./model/src/do_oceanic_phys.F |
854 |
DO_OCEANIC_PHYS |
& .OR. useSALT_PLUME .OR. doDiagsRho.GE.1 ) THEN |
|
./model/src/do_oceanic_phys.F |
917 |
DO_OCEANIC_PHYS |
IF ( doDiagsRho.GE.4 ) THEN |
|
./model/src/do_oceanic_phys.F |
918 |
DO_OCEANIC_PHYS |
CALL DIAGS_RHO_L( doDiagsRho, k, bi, bj, |
|
./model/src/do_oceanic_phys.F |
935 |
DO_OCEANIC_PHYS |
IF ( calcGMRedi .OR. MOD(doDiagsRho,2).EQ.1 ) THEN |
|
./model/src/do_oceanic_phys.F |
967 |
DO_OCEANIC_PHYS |
IF ( MOD(doDiagsRho,4).GE.2 ) THEN |