| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_lsr.F |
135 |
SEAICE_LSR |
DWATN(I,J,bi,bj) = DWATN(I,J,bi,bj) * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/SEAICE.h |
77 |
NO PROCEDURE |
COMMON/ARRAY/HEFFM |
|
./pkg/seaice/SEAICE.h |
86 |
NO PROCEDURE |
_RL HEFFM (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/advect.F |
230 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
237 |
ADVECT |
& *HEFFM(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
254 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
261 |
ADVECT |
& *HEFFM(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
32 |
ADVECT |
_RL HEFFM (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/advect.F |
7 |
ADVECT |
SUBROUTINE ADVECT( UI,VI,HEFF,HEFFM,myThid ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
109 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
160 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
234 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
345 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
102 |
SEAICE_INIT |
mask_uice=HEFFM(I,J, bi,bj)+HEFFM(I-1,J-1,bi,bj) |
|
./pkg/seaice/seaice_init.F |
103 |
SEAICE_INIT |
& +HEFFM(I,J-1,bi,bj)+HEFFM(I-1,J, bi,bj) |
|
./pkg/seaice/seaice_init.F |
108 |
SEAICE_INIT |
mask_uice=HEFFM(I,J,bi,bj)+HEFFM(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_init.F |
110 |
SEAICE_INIT |
mask_uice=HEFFM(I,J,bi,bj)+HEFFM(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_init.F |
204 |
SEAICE_INIT |
CALL PLOT_FIELD_XYRL( HEFFM , 'Current HEFFM ' , |
|
./pkg/seaice/seaice_init.F |
245 |
SEAICE_INIT |
HSNOW(I,J,bi,bj)=0.2*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
249 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
94 |
SEAICE_INIT |
HEFFM(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init.F |
95 |
SEAICE_INIT |
IF (_hFacC(i,j,1,bi,bj).eq.0.) HEFFM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_dynsolver.F |
214 |
SEAICE_DYNSOLVER |
PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
140 |
SEAICE_EVP |
DWATN(I,J,bi,bj) = DWATN(I,J,bi,bj) * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
365 |
GROWTH |
AREA(I,J,1,bi,bj)=AREA(I,J,1,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
366 |
GROWTH |
HEFF(I,J,1,bi,bj)=HEFF(I,J,1,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
370 |
GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
187 |
SEAICE_ADVDIFF |
I uc, vc, fld, HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
194 |
SEAICE_ADVDIFF |
AREA(I,J,1,bi,bj) = HEFFM(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
206 |
SEAICE_ADVDIFF |
I uc, vc, fld, HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
213 |
SEAICE_ADVDIFF |
HEFF(I,J,1,bi,bj) = HEFFM(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
259 |
SEAICE_ADVDIFF |
I uc, vc, fld, HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
277 |
SEAICE_ADVDIFF |
Qice1(I,J,bi,bj) = HEFFM(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
290 |
SEAICE_ADVDIFF |
I uc, vc, fld, HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
308 |
SEAICE_ADVDIFF |
Qice2(I,J,bi,bj) = HEFFM(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
321 |
SEAICE_ADVDIFF |
I uc, vc, fld, HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
330 |
SEAICE_ADVDIFF |
snowHeight(I,J,bi,bj) = HEFFM(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
351 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HEFF, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
352 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, AREA, HEFFM, myThid ) |
|
./pkg/seaice/diffus.F |
25 |
DIFFUS |
_RL HEFFM (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/diffus.F |
58 |
DIFFUS |
& *HEFFM(I+1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
60 |
DIFFUS |
& *HEFFM(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
63 |
DIFFUS |
& * _dxG(I+1,J+1,bi,bj)*HEFFM(I,J+1,bi,bj) |
|
./pkg/seaice/diffus.F |
65 |
DIFFUS |
& * _dxG(I+1,J, bi,bj)*HEFFM(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
77 |
DIFFUS |
& * cosFacU(J,bi,bj) * HEFFM(I+1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
7 |
DIFFUS |
SUBROUTINE DIFFUS( HEFF, DIFFA, HEFFM, DELTT, myThid ) |
|
./pkg/seaice/diffus.F |
80 |
DIFFUS |
& * cosFacU(J,bi,bj) * HEFFM(I-1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
87 |
DIFFUS |
& * HEFFM(I,J+1,bi,bj) |
|
./pkg/seaice/diffus.F |
93 |
DIFFUS |
& * HEFFM(I,J-1,bi,bj) |
|
./pkg/seaice/diffus.F |
95 |
DIFFUS |
& ) * HEFFM(I,J,bi,bj) |