| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/advect.F |
176 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
183 |
ADVECT |
& *HEFFM(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
200 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
207 |
ADVECT |
& *HEFFM(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
31 |
ADVECT |
_RL HEFFM (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/advect.F |
7 |
ADVECT |
SUBROUTINE ADVECT( UICE,VICE,HEFF,HEFFM,myThid ) |
|
./pkg/seaice/diffus.F |
23 |
DIFFUS |
_RL HEFFM (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/diffus.F |
55 |
DIFFUS |
& -HEFF(I,J,3,bi,bj))*HEFFM(I+1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
56 |
DIFFUS |
& -(HEFF(I,J,3,bi,bj)-HEFF(I-1,J,3,bi,bj))*HEFFM(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
58 |
DIFFUS |
& *CSUICE(I+1,J+1,bi,bj)*HEFFM(I,J+1,bi,bj) |
|
./pkg/seaice/diffus.F |
60 |
DIFFUS |
& *CSUICE(I+1,J,bi,bj)*HEFFM(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
7 |
DIFFUS |
SUBROUTINE DIFFUS( HEFF, DIFFA, HEFFM, DELTT, myThid ) |
|
./pkg/seaice/SEAICE.h |
48 |
NO PROCEDURE |
COMMON/ARRAY/HEFFM,UVM |
|
./pkg/seaice/SEAICE.h |
54 |
NO PROCEDURE |
_RL HEFFM (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/seaice_model.F |
129 |
SEAICE_MODEL |
CALL ADVECT( UICE, VICE, HEFF, HEFFM, myThid ) |
|
./pkg/seaice/seaice_model.F |
130 |
SEAICE_MODEL |
CALL ADVECT( UICE, VICE, AREA, HEFFM, myThid ) |
|
./pkg/seaice/dynsolver.F |
148 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
220 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
327 |
DYNSOLVER |
ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_init.F |
122 |
SEAICE_INIT |
HEFFM(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init.F |
123 |
SEAICE_INIT |
IF (_hFacC(i,j,1,bi,bj).eq.0.) HEFFM(i,j,bi,bj)=ZERO |
|
./pkg/seaice/seaice_init.F |
129 |
SEAICE_INIT |
mask_uice=HEFFM(I,J, bi,bj)+HEFFM(I-1,J-1,bi,bj) |
|
./pkg/seaice/seaice_init.F |
130 |
SEAICE_INIT |
& +HEFFM(I,J-1,bi,bj)+HEFFM(I-1,J, bi,bj) |
|
./pkg/seaice/seaice_init.F |
268 |
SEAICE_INIT |
CALL PLOT_FIELD_XYRL( HEFFM , 'Current HEFFM ' , |
|
./pkg/seaice/seaice_init.F |
285 |
SEAICE_INIT |
HSNOW(I,J,bi,bj)=0.2*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init.F |
289 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/growth.F |
355 |
GROWTH |
AREA(I,J,1,bi,bj)=AREA(I,J,1,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
356 |
GROWTH |
HEFF(I,J,1,bi,bj)=HEFF(I,J,1,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
360 |
GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |