| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_load_climatology.F |
34 |
EBM_LOAD_CLIMATOLOGY |
IF ( saltClimFile .NE. ' ' ) THEN |
|
./pkg/ebm/ebm_load_climatology.F |
36 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( saltClimFile, ' ', SSS, 0, myThid ) |
|
./model/inc/PARAMS.h |
111 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) saltClimFile |
|
./model/inc/PARAMS.h |
91 |
NO PROCEDURE |
& saltClimFile, buoyancyRelation, |
|
./verification/natl_box/code/external_fields_load.F |
152 |
EXTERNAL_FIELDS_LOAD |
IF ( saltClimFile .NE. ' ' ) THEN |
|
./verification/natl_box/code/external_fields_load.F |
153 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( saltClimFile, readBinaryPrec, |
|
./verification/natl_box/code/external_fields_load.F |
155 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( saltClimFile, readBinaryPrec, |
|
./model/src/ini_parms.F |
241 |
INI_PARMS |
& thetaClimFile, saltClimFile, |
|
./model/src/external_fields_load.F |
173 |
EXTERNAL_FIELDS_LOAD |
IF ( saltClimFile .NE. ' ' ) THEN |
|
./model/src/external_fields_load.F |
174 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( saltClimFile, readBinaryPrec, |
|
./model/src/external_fields_load.F |
176 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( saltClimFile, readBinaryPrec, |
|
./model/src/external_fields_load.F |
250 |
EXTERNAL_FIELDS_LOAD |
IF ( saltClimFile .NE. ' ' ) THEN |
|
./model/src/ini_forcing.F |
136 |
INI_FORCING |
IF ( saltClimFile .NE. ' ' ) THEN |
|
./model/src/ini_forcing.F |
137 |
INI_FORCING |
CALL READ_FLD_XY_RS( saltClimFile, ' ', SSS, 0, myThid ) |
|
./model/src/set_defaults.F |
297 |
SET_DEFAULTS |
saltClimFile = ' ' |
|
./pkg/seaice/seaice_get_forcing.F |
204 |
SEAICE_GET_FORCING |
IF ( saltClimFile .NE. ' ' ) THEN |
|
./pkg/seaice/seaice_get_forcing.F |
205 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( saltClimFile,SSSsi0,iRec ,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
206 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( saltClimFile,SSSsi1,iRec+1,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
395 |
SEAICE_GET_FORCING |
IF ( aWghtSSS .EQ. 0 .AND. saltClimFile .NE. ' ') THEN |
|
./pkg/seaice/seaice_get_forcing.F |
399 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( saltClimFile,SSSsi0,iRec,myIter,myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
401 |
SEAICE_GET_FORCING |
CALL READ_REC_XY_RS( saltClimFile,SSSsi1,iRec,myIter,myThid ) |