| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_write_pickup.F |
64 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2, 8, myIter,myThid) |
|
./pkg/thsice/thsice_write_pickup.F |
86 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Qice2', Qice2, myThid) |
|
./pkg/thsice/thsice_impl_temp.F |
115 |
THSICE_IMPL_TEMP |
Qice2(i,j,bi,bj)=qicen(2) |
|
./pkg/thsice/thsice_impl_temp.F |
95 |
THSICE_IMPL_TEMP |
qicen(2)= Qice2(i,j,bi,bj) |
|
./pkg/thsice/thsice_monitor.F |
148 |
THSICE_MONITOR |
I 1, Qice2, iceMask, iceheight, rA, locDr, |
|
./pkg/thsice/thsice_check_conserv.F |
59 |
THSICE_CHECK_CONSERV |
& *(Qice1(i,j,bi,bj)+Qice2(i,j,bi,bj))*0.5 |
|
./pkg/thsice/thsice_step_fwd.F |
122 |
THSICE_STEP_FWD |
qicen(2)= Qice2(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
152 |
THSICE_STEP_FWD |
Qice2(i,j,bi,bj)=qicen(2) |
|
./pkg/thsice/thsice_step_fwd.F |
213 |
THSICE_STEP_FWD |
qicen(2)= Qice2(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
261 |
THSICE_STEP_FWD |
Qice2(i,j,bi,bj)=qicen(2) |
|
./pkg/thsice/thsice_step_fwd.F |
298 |
THSICE_STEP_FWD |
qicen(2)= Qice2(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
322 |
THSICE_STEP_FWD |
Qice2(i,j,bi,bj) = qicen(2) |
|
./pkg/thsice/thsice_step_fwd.F |
349 |
THSICE_STEP_FWD |
Qice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/THSICE_VARS.h |
25 |
NO PROCEDURE |
& Qice1, Qice2, snowAge |
|
./pkg/thsice/THSICE_VARS.h |
34 |
NO PROCEDURE |
_RL Qice2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_diagnostics_fill.F |
85 |
THSICE_DIAGNOSTICS_FILL |
I Qice2(1-Olx,1-Oly,bi,bj), |
|
./pkg/thsice/thsice_ini_vars.F |
114 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceEnthp_InitFile,Qice2,2,0,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
129 |
THSICE_INI_VARS |
_EXCH_XY_R8(Qice2, myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
60 |
THSICE_INI_VARS |
Qice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_read_pickup.F |
50 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,Qice2, 8,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
71 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Qice2', Qice2, myThid) |
|
./pkg/thsice/thsice_output.F |
320 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Qice2.', suff,Qice2, |
|
./pkg/thsice/thsice_output.F |
353 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W('D',mncf,0,0,'Qice2', Qice2, myThid) |