| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_sice2aim.F |
113 |
AIM_SICE2AIM |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
64 |
ATM_STORE_SEAICE |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_check_conserv.F |
68 |
THSICE_CHECK_CONSERV |
& -rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
70 |
THSICE_CHECK_CONSERV |
dWater = rhos*snowheight(i,j,bi,bj)+rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
71 |
THSICE_CHECK_CONSERV |
dSalt = rhoi*iceHeight(i,j,bi,bj)*saltice |
|
./pkg/thsice/thsice_step_temp.F |
111 |
THSICE_STEP_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
129 |
THSICE_STEP_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
94 |
THSICE_STEP_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
104 |
THSICE_IMPL_TEMP |
I iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
90 |
THSICE_IMPL_TEMP |
& iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_write_pickup.F |
52 |
THSICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceHeight, 2, |
|
./pkg/thsice/thsice_write_pickup.F |
88 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'iceHeight', iceHeight, myThid) |
|
./pkg/thsice/thsice_output.F |
375 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'iceHeight', iceHeight, myThid) |
|
./pkg/thsice/THSICE_VARS.h |
23 |
NO PROCEDURE |
& iceMask, iceHeight, snowHeight, |
|
./pkg/thsice/THSICE_VARS.h |
28 |
NO PROCEDURE |
_RL iceHeight (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_main.F |
246 |
THSICE_MAIN |
_EXCH_XY_R8( iceHeight, myThid ) |
|
./pkg/thsice/thsice_step_fwd.F |
171 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
193 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
219 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
242 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
260 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
274 |
THSICE_STEP_FWD |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
287 |
THSICE_STEP_FWD |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_read_pickup.F |
44 |
THSICE_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,iceHeight, 2,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
67 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'iceHeight', iceHeight, myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
107 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceThick_InitFile,iceHeight,1,0,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
126 |
THSICE_INI_VARS |
_EXCH_XY_R8(iceHeight, myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
146 |
THSICE_INI_VARS |
& + iceHeight(i,j,bi,bj)*rhoi |
|
./pkg/thsice/thsice_ini_vars.F |
54 |
THSICE_INI_VARS |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_map_thsice.F |
48 |
SEAICE_MAP_THSICE |
HEFF(i,j,1,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
247 |
SEAICE_ADVDIFF |
iceHeight(I,J,bi,bj) = HEFF(I,J,1,bi,bj)*recip_area(I,J) |