| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
119 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile, hydrogSaltFile |
|
./model/inc/PARAMS.h |
92 |
NO PROCEDURE |
& hydrogThetaFile, hydrogSaltFile, diffKrFile, |
|
./model/src/ini_parms.F |
289 |
INI_PARMS |
& hydrogThetaFile, hydrogSaltFile, |
|
./model/src/ini_theta.F |
69 |
INI_THETA |
IF ( hydrogThetaFile .NE. ' ' ) THEN |
|
./model/src/ini_theta.F |
72 |
INI_THETA |
CALL MNC_FILE_CLOSE_ALL_MATCHING(hydrogThetaFile, myThid) |
|
./model/src/ini_theta.F |
73 |
INI_THETA |
CALL MNC_CW_SET_UDIM(hydrogThetaFile, 1, myThid) |
|
./model/src/ini_theta.F |
74 |
INI_THETA |
CALL MNC_CW_SET_CITER(hydrogThetaFile, 2, -1, -1, -1, myThid) |
|
./model/src/ini_theta.F |
75 |
INI_THETA |
CALL MNC_CW_SET_UDIM(hydrogThetaFile, 1, myThid) |
|
./model/src/ini_theta.F |
76 |
INI_THETA |
CALL MNC_CW_RL_R('D',hydrogThetaFile,0,0,'Temp',theta,myThid) |
|
./model/src/ini_theta.F |
77 |
INI_THETA |
CALL MNC_FILE_CLOSE_ALL_MATCHING(hydrogThetaFile, myThid) |
|
./model/src/ini_theta.F |
80 |
INI_THETA |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid ) |
|
./verification/advect_xy/code/ini_theta.F |
81 |
INI_THETA |
IF ( hydrogThetaFile .NE. ' ' ) THEN |
|
./verification/advect_xy/code/ini_theta.F |
82 |
INI_THETA |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid ) |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
54 |
COST_TEST |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', thetaLev, 0, myThid ) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
61 |
INI_THETA |
IF ( hydrogThetaFile .EQ. ' ' ) THEN |
|
./verification/hs94.1x64x5/code/ini_theta.F |
92 |
INI_THETA |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid ) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
61 |
INI_THETA |
IF ( hydrogThetaFile .EQ. ' ' ) THEN |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
92 |
INI_THETA |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid ) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
61 |
INI_THETA |
IF ( hydrogThetaFile .EQ. ' ' ) THEN |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
92 |
INI_THETA |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid ) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
61 |
INI_THETA |
IF ( hydrogThetaFile .EQ. ' ' ) THEN |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
92 |
INI_THETA |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid ) |
|
./model/src/set_defaults.F |
364 |
SET_DEFAULTS |
hydrogThetaFile = ' ' |