| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_fields_load.F |
298 |
BULKF_FIELDS_LOAD |
IF ( meridWindFile .NE. ' ' ) THEN |
|
./pkg/bulk_force/bulkf_fields_load.F |
299 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( meridWindFile,tauy0Local,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
301 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( meridWindFile,tauy1Local,intime1, |
|
./model/src/external_fields_load.F |
137 |
EXTERNAL_FIELDS_LOAD |
IF ( meridWindFile .NE. ' ' ) THEN |
|
./model/src/external_fields_load.F |
138 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( meridWindFile, readBinaryPrec, |
|
./model/src/external_fields_load.F |
140 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( meridWindFile, readBinaryPrec, |
|
./pkg/ebm/ebm_load_climatology.F |
79 |
EBM_LOAD_CLIMATOLOGY |
IF (meridWindFile .EQ. ' ' ) THEN |
|
./pkg/ebm/ebm_load_climatology.F |
91 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid ) |
|
./verification/natl_box/code/external_fields_load.F |
123 |
EXTERNAL_FIELDS_LOAD |
IF ( meridWindFile .NE. ' ' ) THEN |
|
./verification/natl_box/code/external_fields_load.F |
124 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( meridWindFile, readBinaryPrec, |
|
./verification/natl_box/code/external_fields_load.F |
126 |
EXTERNAL_FIELDS_LOAD |
CALL MDSREADFIELD ( meridWindFile, readBinaryPrec, |
|
./model/src/ini_forcing.F |
118 |
INI_FORCING |
IF ( meridWindFile .NE. ' ' ) THEN |
|
./model/src/ini_forcing.F |
119 |
INI_FORCING |
CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid ) |
|
./model/src/ini_parms.F |
219 |
INI_PARMS |
& zonalWindFile, meridWindFile, |
|
./model/inc/PARAMS.h |
102 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) meridWindFile |
|
./model/inc/PARAMS.h |
85 |
NO PROCEDURE |
& zonalWindFile, meridWindFile, thetaClimFile, |
|
./model/src/set_defaults.F |
283 |
SET_DEFAULTS |
meridWindFile = ' ' |