File |
Line number |
Procedure |
Code |
./pkg/seaice/SEAICE.h |
45 |
NO PROCEDURE |
COMMON/ARRAY/HEFFM |
./pkg/seaice/SEAICE.h |
46 |
NO PROCEDURE |
_RL HEFFM (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/seaice/dynsolver.F |
224 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
298 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/dynsolver.F |
417 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_advdiff.F |
198 |
SEAICE_ADVDIFF |
I HEFF(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
./pkg/seaice/seaice_advdiff.F |
205 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
./pkg/seaice/seaice_advdiff.F |
224 |
SEAICE_ADVDIFF |
I AREA(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
./pkg/seaice/seaice_advdiff.F |
231 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
./pkg/seaice/seaice_advdiff.F |
250 |
SEAICE_ADVDIFF |
I HSNOW(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
./pkg/seaice/seaice_advdiff.F |
257 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
./pkg/seaice/seaice_advdiff.F |
277 |
SEAICE_ADVDIFF |
I HSALT(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
./pkg/seaice/seaice_advdiff.F |
284 |
SEAICE_ADVDIFF |
HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
./pkg/seaice/seaice_advdiff.F |
305 |
SEAICE_ADVDIFF |
I IceAge(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
./pkg/seaice/seaice_advdiff.F |
312 |
SEAICE_ADVDIFF |
IceAge(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
./pkg/seaice/seaice_advdiff.F |
333 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, hEff, hEffNm1, HEFFM, myThid ) |
./pkg/seaice/seaice_advdiff.F |
336 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, area, areaNm1, HEFFM, myThid ) |
./pkg/seaice/seaice_advdiff.F |
339 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HSNOW, fldNm1, HEFFM, myThid ) |
./pkg/seaice/seaice_advdiff.F |
344 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HSALT, fldNm1, HEFFM, myThid ) |
./pkg/seaice/seaice_advdiff.F |
350 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, iceAge, fldNm1, HEFFM, myThid ) |
./pkg/seaice/seaice_calc_viscosities.F |
102 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_dynsolver.F |
118 |
SEAICE_DYNSOLVER |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
./pkg/seaice/seaice_dynsolver.F |
126 |
SEAICE_DYNSOLVER |
mask_vice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
./pkg/seaice/seaice_dynsolver.F |
218 |
SEAICE_DYNSOLVER |
PRESS0(I,J,bi,bj)= PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_dynsolver.F |
68 |
SEAICE_DYNSOLVER |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
./pkg/seaice/seaice_evp.F |
448 |
SEAICE_EVP |
DWATN(I,J,bi,bj) = DWATN(I,J,bi,bj) * HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_growth.F |
1120 |
SEAICE_GROWTH |
tmpscal2 = tmpscal1 * SIsal0 * HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_growth.F |
1124 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,j,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_growth.F |
1143 |
SEAICE_GROWTH |
saltFluxAdjust(I,J) = - HEFFM(I,J,bi,bj) * |
./pkg/seaice/seaice_growth.F |
1164 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm |
./pkg/seaice/seaice_growth.F |
1170 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm |
./pkg/seaice/seaice_growth.F |
1183 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm |
./pkg/seaice/seaice_growth.F |
1199 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj) * HSALT(I,J,bi,bj) / |
./pkg/seaice/seaice_growth.F |
1260 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_growth.F |
1261 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_growth.F |
1268 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_growth.F |
433 |
SEAICE_GROWTH |
saltFluxAdjust(I,J) = - HEFFM(I,J,bi,bj) * |
./pkg/seaice/seaice_growth_if.F |
1000 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_growth_if.F |
998 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_growth_if.F |
999 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
./pkg/seaice/seaice_init_fixed.F |
82 |
SEAICE_INIT_FIXED |
HEFFM(i,j,bi,bj) = 0. _d 0 |
./pkg/seaice/seaice_init_fixed.F |
87 |
SEAICE_INIT_FIXED |
HEFFM(i,j,bi,bj)= 1. _d 0 |
./pkg/seaice/seaice_init_fixed.F |
89 |
SEAICE_INIT_FIXED |
& HEFFM(i,j,bi,bj)= 0. _d 0 |
./pkg/seaice/seaice_init_fixed.F |
96 |
SEAICE_INIT_FIXED |
mask_uice=HEFFM(i,j, bi,bj)+HEFFM(i-1,j-1,bi,bj) |
./pkg/seaice/seaice_init_fixed.F |
97 |
SEAICE_INIT_FIXED |
& +HEFFM(i,j-1,bi,bj)+HEFFM(i-1,j, bi,bj) |
./pkg/seaice/seaice_init_varia.F |
179 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
./pkg/seaice/seaice_init_varia.F |
181 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
./pkg/seaice/seaice_init_varia.F |
288 |
SEAICE_INIT_VARIA |
CALL PLOT_FIELD_XYRL( HEFFM , 'Current HEFFM ' , |
./pkg/seaice/seaice_init_varia.F |
314 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj) |
./pkg/seaice/seaice_init_varia.F |
455 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
./pkg/seaice/seaice_lsr.F |
238 |
SEAICE_LSR |
DWATN(I,J,bi,bj) = DWATN(I,J,bi,bj) * HEFFM(I,J,bi,bj) |