| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
24 |
NO PROCEDURE |
& Tsrf, Tice1, Tice2, |
|
./pkg/thsice/THSICE_VARS.h |
31 |
NO PROCEDURE |
_RL Tice1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_ave.F |
66 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_Tice1_Ave, Tice1, iceMask, |
|
./pkg/thsice/thsice_diagnostics_state.F |
69 |
THSICE_DIAGNOSTICS_STATE |
I Tice1, iceMask,tmpFac,1,'SI_Tice1', |
|
./pkg/thsice/thsice_impl_temp.F |
108 |
THSICE_IMPL_TEMP |
O Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), dTsurf, |
|
./pkg/thsice/thsice_impl_temp.F |
93 |
THSICE_IMPL_TEMP |
& Tice1(i,j,bi,bj), Tice2(i,j,bi,bj), |
|
./pkg/thsice/thsice_ini_vars.F |
167 |
THSICE_INI_VARS |
_EXCH_XY_RL(Tice1, myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
61 |
THSICE_INI_VARS |
Tice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_monitor.F |
205 |
THSICE_MONITOR |
I Tice1, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_output.F |
288 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Tice1.', suff,Tice1, |
|
./pkg/thsice/thsice_output.F |
334 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Tice1', Tice1, myThid) |
|
./pkg/thsice/thsice_output.F |
335 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Tice2', Tice1, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
58 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tice1, 5, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
81 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tice1', Tice1, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
82 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tice2', Tice1, myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
337 |
THSICE_STEP_FWD |
U Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
380 |
THSICE_STEP_FWD |
Tice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_temp.F |
182 |
THSICE_STEP_TEMP |
O Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), dTsrf, |
|
./pkg/thsice/thsice_write_pickup.F |
61 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tice1, 5, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
95 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice1', Tice1, myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
96 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice2', Tice1, myThid) |
|
./pkg/aim_v23/aim_sice2aim.F |
94 |
AIM_SICE2AIM |
Tice1(i,j,bi,bj) = Tsrf (i,j,bi,bj) |