| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
97 |
NO PROCEDURE |
& hOceMxL, tOceMxL, sOceMxL, v2ocMxL |
|
./pkg/thsice/THSICE_VARS.h |
99 |
NO PROCEDURE |
_RL hOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_advdiff.F |
191 |
THSICE_ADVDIFF |
IF ( hOceMxL(i,j,bi,bj).GT.0. ) maskOce(i,j) = 1. |
|
./pkg/thsice/thsice_do_advect.F |
109 |
THSICE_DO_ADVECT |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_ocean.F |
68 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*h0FacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
76 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFac_surfC(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
78 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
89 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_ini_vars.F |
100 |
THSICE_INI_VARS |
& hOceMxL(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_ini_vars.F |
87 |
THSICE_INI_VARS |
hOceMxL(i,j,bi,bj) = hMxL_default |
|
./pkg/thsice/thsice_slab_ocean.F |
111 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
125 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
130 |
THSICE_SLAB_OCEAN |
& + heatFac*locQflux / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
139 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
79 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
82 |
THSICE_SLAB_OCEAN |
& - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
85 |
THSICE_SLAB_OCEAN |
& / hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_slab_ocean.F |
97 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
209 |
THSICE_STEP_FWD |
cphm = cpwater*rhosw*hOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
309 |
THSICE_STEP_FWD |
ELSEIF (hOceMxL(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
367 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
431 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/atm_compon_interf/atm_apply_import.F |
90 |
ATM_APPLY_IMPORT |
hOceMxL(i,j,bi,bj) = ocMxlD(i,j,bi,bj) |