| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
125 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) zonalWindFile |
|
./model/inc/PARAMS.h |
93 |
NO PROCEDURE |
& zonalWindFile, meridWindFile, thetaClimFile, |
|
./model/src/external_fields_load.F |
117 |
EXTERNAL_FIELDS_LOAD |
IF ( zonalWindFile .NE. ' ' ) THEN |
|
./model/src/external_fields_load.F |
118 |
EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XY_RS( zonalWindFile, taux0, |
|
./model/src/external_fields_load.F |
120 |
EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XY_RS( zonalWindFile, taux1, |
|
./model/src/external_fields_load.F |
258 |
EXTERNAL_FIELDS_LOAD |
IF ( zonalWindFile .NE. ' ' ) THEN |
|
./model/src/ini_forcing.F |
70 |
INI_FORCING |
IF ( zonalWindFile .NE. ' ' ) THEN |
|
./model/src/ini_forcing.F |
71 |
INI_FORCING |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
|
./model/src/ini_parms.F |
291 |
INI_PARMS |
& zonalWindFile, meridWindFile, |
|
./model/src/set_defaults.F |
374 |
SET_DEFAULTS |
zonalWindFile = ' ' |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
120 |
INI_FORCING |
IF ( zonalWindFile .NE. ' ' ) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
121 |
INI_FORCING |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
120 |
INI_FORCING |
IF ( zonalWindFile .NE. ' ' ) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
121 |
INI_FORCING |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
|
./pkg/bulk_force/bulkf_readparms.F |
130 |
BULKF_READPARMS |
calcWindStress = zonalWindFile .EQ. ' ' |
|
./pkg/ebm/ebm_load_climatology.F |
58 |
EBM_LOAD_CLIMATOLOGY |
IF ( zonalWindFile .EQ. ' ' ) THEN |