| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
96 |
NO PROCEDURE |
& hOceMxL, tOceMxL, sOceMxL, v2ocMxL |
|
./pkg/thsice/THSICE_VARS.h |
98 |
NO PROCEDURE |
_RL hOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_advdiff.F |
157 |
THSICE_ADVDIFF |
IF ( hOceMxL(i,j,bi,bj).GT.0. ) maskOce(i,j) = 1. |
|
./pkg/thsice/thsice_ini_vars.F |
102 |
THSICE_INI_VARS |
& hOceMxL(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_ini_vars.F |
89 |
THSICE_INI_VARS |
hOceMxL(i,j,bi,bj) = hMxL_default |
|
./pkg/thsice/thsice_main.F |
123 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*h0FacC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
131 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hFac_surfC(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
133 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hFacC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_main.F |
144 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hFacC(i,j,1,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
110 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
124 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
129 |
THSICE_SLAB_OCEAN |
& + heatFac*locQflux / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
138 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
78 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
81 |
THSICE_SLAB_OCEAN |
& - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
84 |
THSICE_SLAB_OCEAN |
& / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
96 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
199 |
THSICE_STEP_FWD |
cphm = cpwater*rhosw*hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
295 |
THSICE_STEP_FWD |
ELSEIF (hOceMxL(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
347 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
385 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/aim_compon_interf/atm_apply_import.F |
73 |
ATM_APPLY_IMPORT |
hOceMxL(i,j,bi,bj) = ocMxlD(i,j,bi,bj) |