| File |
Line number |
Procedure |
Code |
|
./model/src/calc_gt.F |
177 |
CALC_GT |
I diffKhT, diffK4T, KappaRT, gtNm1, theta, dTtracerLev, |
|
./model/src/calc_gt.F |
200 |
CALC_GT |
U gT, gtNm1, |
|
./model/src/calc_gt.F |
238 |
CALC_GT |
U gtNm1, |
|
./pkg/obcs/obcs_calc_stevens.F |
214 |
OBCS_CALC_STEVENS |
& MAX( 0.D0, -cfl*gtNm1(I-1,J,K,bi,bj)/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
361 |
OBCS_CALC_STEVENS |
& MIN( 0.D0, -cfl*gtNm1(I+1,J,K,bi,bj)/dTracSpace ) |
|
./model/src/do_gterm_blocking_exchanges.F |
50 |
DO_GTERM_BLOCKING_EXCHANGES |
_EXCH_XYZ_RL( gtNm1 , myThid ) |
|
./model/src/dynamics.F |
706 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gtNm1,'GtNm1 (DYNAMICS)',myThid) |
|
./model/src/ini_dynvars.F |
73 |
INI_DYNVARS |
gtNm1(I,J,K,bi,bj) =0. _d 0 |
|
./model/src/read_pickup.F |
171 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 9, myIter,myThid ) |
|
./model/src/read_pickup.F |
219 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 6, myIter,myThid ) |
|
./model/src/read_pickup.F |
353 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'GtNm1 ', gtNm1, |
|
./model/src/read_pickup.F |
445 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'gTnm1',gtNm1, myThid) |
|
./model/src/read_pickup.F |
492 |
READ_PICKUP |
CALL EXCH_3D_RL( gtNm1, Nr, myThid ) |
|
./model/src/thermodynamics.F |
926 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,gtNm1,'GtNm1 (THERMODYNAMICS)',myThid) |
|
./model/src/write_pickup.F |
226 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm1, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
347 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'gTnm1', gtNm1, myThid) |
|
./model/inc/DYNVARS.h |
45 |
NO PROCEDURE |
& guNm1,gvNm1,gtNm1,gsNm1 |
|
./model/inc/DYNVARS.h |
65 |
NO PROCEDURE |
_RL gtNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |