| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
132 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
|
./model/inc/PARAMS.h |
95 |
NO PROCEDURE |
& EmPmRfile, saltFluxFile, |
|
./model/src/external_fields_load.F |
140 |
EXTERNAL_FIELDS_LOAD |
IF ( EmPmRfile .NE. ' ' ) THEN |
|
./model/src/external_fields_load.F |
141 |
EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XY_RS( EmPmRfile, EmPmR0, |
|
./model/src/external_fields_load.F |
143 |
EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XY_RS( EmPmRfile, EmPmR1, |
|
./model/src/external_fields_load.F |
283 |
EXTERNAL_FIELDS_LOAD |
IF ( EmPmRfile .NE. ' ' ) THEN |
|
./model/src/ini_forcing.F |
81 |
INI_FORCING |
IF ( EmPmRfile .NE. ' ' ) THEN |
|
./model/src/ini_forcing.F |
82 |
INI_FORCING |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
|
./model/src/ini_parms.F |
293 |
INI_PARMS |
& surfQfile, surfQnetFile, surfQswFile, EmPmRfile, saltFluxFile, |
|
./model/src/set_defaults.F |
378 |
SET_DEFAULTS |
EmPmRfile = ' ' |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
131 |
INI_FORCING |
IF ( EmPmRfile .NE. ' ' ) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
132 |
INI_FORCING |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
131 |
INI_FORCING |
IF ( EmPmRfile .NE. ' ' ) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
132 |
INI_FORCING |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |