| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_load_climatology.F |
40 |
EBM_LOAD_CLIMATOLOGY |
IF ( thetaClimFile .NE. ' ' ) THEN |
|
./pkg/ebm/ebm_load_climatology.F |
42 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid ) |
|
./model/inc/PARAMS.h |
110 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) thetaClimFile |
|
./model/inc/PARAMS.h |
90 |
NO PROCEDURE |
& zonalWindFile, meridWindFile, thetaClimFile, |
|
./verification/natl_box/code/external_fields_load.F |
146 |
EXTERNAL_FIELDS_LOAD |
IF ( thetaClimFile .NE. ' ' ) THEN |
|
./verification/natl_box/code/external_fields_load.F |
147 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( thetaClimFile, readBinaryPrec, |
|
./verification/natl_box/code/external_fields_load.F |
149 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( thetaClimFile, readBinaryPrec, |
|
./model/src/ini_parms.F |
241 |
INI_PARMS |
& thetaClimFile, saltClimFile, |
|
./model/src/external_fields_load.F |
167 |
EXTERNAL_FIELDS_LOAD |
IF ( thetaClimFile .NE. ' ' ) THEN |
|
./model/src/external_fields_load.F |
168 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( thetaClimFile, readBinaryPrec, |
|
./model/src/external_fields_load.F |
170 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( thetaClimFile, readBinaryPrec, |
|
./model/src/external_fields_load.F |
242 |
EXTERNAL_FIELDS_LOAD |
IF ( thetaClimFile .NE. ' ' ) THEN |
|
./model/src/ini_forcing.F |
133 |
INI_FORCING |
IF ( thetaClimFile .NE. ' ' ) THEN |
|
./model/src/ini_forcing.F |
134 |
INI_FORCING |
CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid ) |
|
./model/src/set_defaults.F |
296 |
SET_DEFAULTS |
thetaClimFile = ' ' |
|
./pkg/seaice/seaice_get_forcing.F |
196 |
SEAICE_GET_FORCING |
IF ( thetaClimFile .NE. ' ' ) THEN |
|
./pkg/seaice/seaice_get_forcing.F |
197 |
SEAICE_GET_FORCING |
iEnd = ILNBLNK( thetaClimFile ) - 2 |
|
./pkg/seaice/seaice_get_forcing.F |
198 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I2.2)') thetaClimFile(1:iEnd), CurrentYear2 |
|
./pkg/seaice/seaice_get_forcing.F |
370 |
SEAICE_GET_FORCING |
IF ( aWghtSST .EQ. 0 .AND. thetaClimFile .NE. ' ' ) THEN |
|
./pkg/seaice/seaice_get_forcing.F |
373 |
SEAICE_GET_FORCING |
iEnd = ILNBLNK( thetaClimFile ) - 2 |
|
./pkg/seaice/seaice_get_forcing.F |
374 |
SEAICE_GET_FORCING |
WRITE(fName,'(A,I2.2)') thetaClimFile(1:iEnd), CurrentYear2 |