| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_main.F |
100 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hFac_surfC(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
102 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hfacC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
113 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hfacC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
92 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*h0FacC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
189 |
THSICE_STEP_FWD |
cphm = cpwater*rhosw*hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
278 |
THSICE_STEP_FWD |
ELSEIF (hOceMxL(i,j,bi,bj).gt.0. _d 0) THEN |
|
./pkg/thsice/THSICE_VARS.h |
73 |
NO PROCEDURE |
& hOceMxL, tOceMxL, sOceMxL, v2ocMxL |
|
./pkg/thsice/THSICE_VARS.h |
75 |
NO PROCEDURE |
_RL hOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_slab_ocean.F |
102 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
64 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
67 |
THSICE_SLAB_OCEAN |
& - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
70 |
THSICE_SLAB_OCEAN |
& / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
83 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_ini_vars.F |
80 |
THSICE_INI_VARS |
hOceMxL(i,j,bi,bj) = hMxL_default |
|
./pkg/aim_v23/aim_aim2sioce.F |
122 |
AIM_AIM2SIOCE |
IF (land_frc(i,j,bi,bj).EQ.1. _d 0) hOceMxL(i,j,bi,bj) = 0. |
|
./pkg/aim_compon_interf/atm_apply_import.F |
73 |
ATM_APPLY_IMPORT |
hOceMxL(i,j,bi,bj) = ocMxlD(i,j,bi,bj) |