File |
Line number |
Procedure |
Code |
./pkg/grdchk/grdchk_get_position.F |
162 |
GRDCHK_GET_POSITION |
if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then |
./pkg/grdchk/grdchk_get_position.F |
165 |
GRDCHK_GET_POSITION |
wetlocal = maskSHI(i,j,k,bi,bj) |
./pkg/grdchk/grdchk_loc.F |
212 |
GRDCHK_LOC |
if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then |
./pkg/shelfice/SHELFICE.h |
149 |
NO PROCEDURE |
COMMON /SHELFICE_MASKS_CTRL/ maskSHI |
./pkg/shelfice/SHELFICE.h |
150 |
NO PROCEDURE |
_RS maskSHI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./pkg/shelfice/shelfice_init_fixed.F |
107 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,k,bi,bj) = 1. _d 0 |
./pkg/shelfice/shelfice_init_fixed.F |
108 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,1,bi,bj) = 1. _d 0 |
./pkg/shelfice/shelfice_init_fixed.F |
135 |
SHELFICE_INIT_FIXED |
& *maskSHI(i,j,1,bi,bj) |
./pkg/shelfice/shelfice_init_fixed.F |
98 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,k,bi,bj) = 0. _d 0 |
./pkg/shelfice/shelfice_thermodynamics.F |
233 |
SHELFICE_THERMODYNAMICS |
& maskSHI, xx_shifwflx_loc, xx_shifwflx0, xx_shifwflx1, |
./pkg/ctrl/ctrl_init_wet.F |
136 |
CTRL_INIT_WET |
if (maskSHI(i,j,k,bi,bj) .eq. 1.) then |
./pkg/ctrl/ctrl_init_wet.F |
617 |
CTRL_INIT_WET |
CALL ACTIVE_WRITE_GEN_RS( 'maskCtrlI', maskSHI, 'XY', Nr, |