| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_fields_load.F |
306 |
BULKF_FIELDS_LOAD |
IF ( thetaClimFile .NE. ' ' ) THEN |
|
./pkg/bulk_force/bulkf_fields_load.F |
307 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( thetaClimFile,SST0Local,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
309 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( thetaClimFile,SST1Local,intime1, |
|
./model/src/external_fields_load.F |
166 |
EXTERNAL_FIELDS_LOAD |
IF ( thetaClimFile .NE. ' ' ) THEN |
|
./model/src/external_fields_load.F |
167 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( thetaClimFile, readBinaryPrec, |
|
./model/src/external_fields_load.F |
169 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( thetaClimFile, readBinaryPrec, |
|
./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 ) |
|
./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_forcing.F |
132 |
INI_FORCING |
IF ( thetaClimFile .NE. ' ' ) THEN |
|
./model/src/ini_forcing.F |
133 |
INI_FORCING |
CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid ) |
|
./model/src/ini_parms.F |
220 |
INI_PARMS |
& thetaClimFile, saltClimFile, |
|
./model/inc/PARAMS.h |
103 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) thetaClimFile |
|
./model/inc/PARAMS.h |
85 |
NO PROCEDURE |
& zonalWindFile, meridWindFile, 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 |
|
./model/src/set_defaults.F |
284 |
SET_DEFAULTS |
thetaClimFile = ' ' |