| File |
Line number |
Procedure |
Code |
|
./model/src/ini_eos.F |
42 |
INI_EOS |
IF ( .NOT.fluidIsWater ) RETURN |
|
./model/src/do_oceanic_phys.F |
103 |
DO_OCEANIC_PHYS |
IF ( useDiagnostics .AND. fluidIsWater ) THEN |
|
./model/src/do_oceanic_phys.F |
114 |
DO_OCEANIC_PHYS |
IF ( useThSIce .AND. fluidIsWater ) THEN |
|
./model/src/do_oceanic_phys.F |
349 |
DO_OCEANIC_PHYS |
IF ( fluidIsWater ) THEN |
|
./model/src/do_oceanic_phys.F |
473 |
DO_OCEANIC_PHYS |
IF ( fluidIsWater .AND. useDiagnostics ) THEN |
|
./pkg/thsice/thsice_ave.F |
124 |
THSICE_AVE |
& .AND. fluidIsWater ) THEN |
|
./pkg/thsice/thsice_ave.F |
140 |
THSICE_AVE |
IF ( fluidIsWater ) THEN |
|
./pkg/thsice/thsice_ave.F |
92 |
THSICE_AVE |
IF ( fluidIsWater ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
106 |
THSICE_STEP_FWD |
IF ( fluidIsWater ) THEN |
|
./pkg/thsice/thsice_output.F |
125 |
THSICE_OUTPUT |
IF ( fluidIsWater ) THEN |
|
./pkg/thsice/thsice_output.F |
214 |
THSICE_OUTPUT |
IF ( fluidIsWater ) THEN |
|
./pkg/thsice/thsice_output.F |
254 |
THSICE_OUTPUT |
IF ( fluidIsWater ) THEN |
|
./pkg/timeave/timeave_statv_write.F |
187 |
TIMEAVE_STATV_WRITE |
IF ( fluidIsWater ) THEN |
|
./pkg/timeave/timeave_statv_write.F |
279 |
TIMEAVE_STATV_WRITE |
IF ( fluidIsWater ) THEN |
|
./model/src/config_summary.F |
87 |
CONFIG_SUMMARY |
CALL WRITE_0D_L( fluidIsWater, INDEX_NONE, |
|
./model/src/ini_parms.F |
1123 |
INI_PARMS |
useDynP_inEos_Zc = ( fluidIsWater .AND. usingZCoords |
|
./model/src/ini_parms.F |
382 |
INI_PARMS |
fluidIsWater = .FALSE. |
|
./model/src/ini_parms.F |
388 |
INI_PARMS |
fluidIsWater = .TRUE. |
|
./model/src/ini_parms.F |
391 |
INI_PARMS |
fluidIsWater = .TRUE. |
|
./model/src/thermodynamics.F |
637 |
THERMODYNAMICS |
IF ( taveFreq.GT. 0. _d 0 .AND. fluidIsWater ) THEN |
|
./model/inc/PARAMS.h |
316 |
NO PROCEDURE |
& fluidIsAir, fluidIsWater, |
|
./model/inc/PARAMS.h |
381 |
NO PROCEDURE |
LOGICAL fluidIsWater |
|
./model/src/write_state.F |
133 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter.NE.nIter0) ) THEN |
|
./model/src/write_state.F |
176 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter .NE. nIter0) ) THEN |