| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_ice.F |
149 |
COST_ICE |
& HEFF(i,j,1,bi,bj) * 334000 * 910 ) |
|
./pkg/ecco/cost_ice.F |
181 |
COST_ICE |
& HEFF(I,J,1,bi,bj) * 2090 * 910 - |
|
./pkg/ecco/cost_ice.F |
182 |
COST_ICE |
& HEFF(i,j,1,bi,bj) * 334000 * 910 - |
|
./pkg/ecco/cost_ice.F |
99 |
COST_ICE |
& tempVar * rA(i,j,bi,bj) * HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/advect.F |
106 |
ADVECT |
CALL SEAICE_EXCH ( HEFF, myThid ) |
|
./pkg/seaice/advect.F |
116 |
ADVECT |
HEFF(I,J,3,bi,bj)=HEFF(I,J,2,bi,bj) |
|
./pkg/seaice/advect.F |
117 |
ADVECT |
HEFF(I,J,2,bi,bj)=HALF*(HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/advect.F |
118 |
ADVECT |
& +HEFF(I,J,2,bi,bj)) |
|
./pkg/seaice/advect.F |
129 |
ADVECT |
HEFF(I+1,J+1,1,bi,bj)=HEFF(I+1,J+1,3,bi,bj) |
|
./pkg/seaice/advect.F |
130 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj)+HEFF |
|
./pkg/seaice/advect.F |
132 |
ADVECT |
& (HEFF(I+1,J+1,2,bi,bj)+HEFF |
|
./pkg/seaice/advect.F |
135 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj) |
|
./pkg/seaice/advect.F |
136 |
ADVECT |
& +HEFF(I+1,J+2,2,bi,bj))*(VI(I+1,J+2,bi,bj) |
|
./pkg/seaice/advect.F |
138 |
ADVECT |
& -(HEFF(I+1,J+1,2,bi,bj)+HEFF(I+1,J,2,bi,bj)) |
|
./pkg/seaice/advect.F |
148 |
ADVECT |
CALL SEAICE_EXCH( HEFF, myThid ) |
|
./pkg/seaice/advect.F |
156 |
ADVECT |
HEFF(I,J,2,bi,bj)=HEFF(I,J,3,bi,bj) |
|
./pkg/seaice/advect.F |
176 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
182 |
ADVECT |
HEFF(I,J,1,bi,bj)=(HEFF(I,J,1,bi,bj)+HEFF(I,J,3,bi,bj)) |
|
./pkg/seaice/advect.F |
200 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
206 |
ADVECT |
HEFF(I,J,1,bi,bj)=(HEFF(I,J,1,bi,bj)+HEFF(I,J,3,bi,bj)) |
|
./pkg/seaice/advect.F |
30 |
ADVECT |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/advect.F |
71 |
ADVECT |
HEFF(I,J,3,bi,bj)=HEFF(I,J,2,bi,bj) |
|
./pkg/seaice/advect.F |
72 |
ADVECT |
HEFF(I,J,2,bi,bj)=HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/advect.F |
7 |
ADVECT |
SUBROUTINE ADVECT( UICE,VICE,HEFF,HEFFM,myThid ) |
|
./pkg/seaice/advect.F |
88 |
ADVECT |
HEFF(I+1,J+1,1,bi,bj)=HEFF(I+1,J+1,K3,bi,bj) |
|
./pkg/seaice/advect.F |
89 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj)+HEFF |
|
./pkg/seaice/advect.F |
91 |
ADVECT |
& (HEFF(I+1,J+1,2,bi,bj)+HEFF |
|
./pkg/seaice/advect.F |
94 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj) |
|
./pkg/seaice/advect.F |
95 |
ADVECT |
& +HEFF(I+1,J+2,2,bi,bj))*(VI(I+1,J+2,bi,bj) |
|
./pkg/seaice/advect.F |
97 |
ADVECT |
& -(HEFF(I+1,J+1,2,bi,bj)+HEFF(I+1,J,2,bi,bj)) |
|
./pkg/seaice/seaice_pickup.F |
120 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, HEFF, 6, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
128 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, HEFF, 4, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
48 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, HEFF , 6, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
56 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, HEFF , 4, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
65 |
SEAICE_READ_PICKUP |
CALL SEAICE_EXCH ( HEFF, myThid ) |
|
./pkg/seaice/groatb.F |
97 |
GROATB |
HICE(I,J)=HEFF(I,J,2,bi,bj)/AREA(I,J,2,bi,bj) |
|
./pkg/seaice/diffus.F |
22 |
DIFFUS |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/diffus.F |
54 |
DIFFUS |
HEFF1(I,J,bi,bj)=DELTXX*((HEFF(I+1,J,3,bi,bj) |
|
./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 |
57 |
DIFFUS |
& +DELTYY*((HEFF(I,J+1,3,bi,bj)-HEFF(I,J,3,bi,bj)) |
|
./pkg/seaice/diffus.F |
59 |
DIFFUS |
& -(HEFF(I,J,3,bi,bj)-HEFF(I,J-1,3,bi,bj)) |
|
./pkg/seaice/diffus.F |
73 |
DIFFUS |
HEFF(I,J,3,bi,bj)=HEFF1(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
7 |
DIFFUS |
SUBROUTINE DIFFUS( HEFF, DIFFA, HEFFM, DELTT, myThid ) |
|
./pkg/seaice/SEAICE.h |
47 |
NO PROCEDURE |
COMMON/SEAICE_TRANS/HEFF,HSNOW |
|
./pkg/seaice/SEAICE.h |
52 |
NO PROCEDURE |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/seaice_monitor.F |
79 |
SEAICE_MONITOR |
TMP_DIAG(i,j,bi,bj)=HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_model.F |
129 |
SEAICE_MODEL |
CALL ADVECT( UICE, VICE, HEFF, HEFFM, myThid ) |
|
./pkg/seaice/seaice_model.F |
138 |
SEAICE_MODEL |
CALL SEAICE_EXCH( HEFF, myThid ) |
|
./pkg/seaice/budget.F |
24 |
BUDGET |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/budget.F |
30 |
BUDGET |
COMMON/SEAICE_TRANS/HEFF,HSNOW |
|
./pkg/seaice/seaice_do_diags.F |
138 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
201 |
SEAICE_DO_DIAGS |
& HEFFtave(i,j,1,bi,bj) +HEFF(i,j,1,bi,bj)*deltaTclock |
|
./pkg/seaice/dynsolver.F |
144 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
85 |
DYNSOLVER |
AMASS(I,J,bi,bj)=RHOICE*QUART*(HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
86 |
DYNSOLVER |
& +HEFF(i-1,j,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
87 |
DYNSOLVER |
& +HEFF(i,j-1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
88 |
DYNSOLVER |
& +HEFF(i-1,j-1,1,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/seaice_init.F |
309 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj) = MAX(ZETA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init.F |
322 |
SEAICE_INIT |
IF(HEFF(I,J,k,bi,bj).GT.ZERO) AREA(I,J,k,bi,bj)=ONE |
|
./pkg/seaice/seaice_init.F |
336 |
SEAICE_INIT |
ZETA(I,J,bi,bj)=HEFF(I,J,1,bi,bj)*(1.0 _d 11) |
|
./pkg/seaice/seaice_init.F |
70 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj)=ZERO |
|
./pkg/seaice/growth.F |
101 |
GROWTH |
& HEFF(I,J,2,bi,bj)*1.0 _d +04) |
|
./pkg/seaice/growth.F |
126 |
GROWTH |
GHEFF(I,J)=HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
127 |
GROWTH |
HEFF(I,J,1,bi,bj)=MAX(ZERO,HEFF(I,J,1,bi,bj)-YNEG(I,J,bi,bj)) |
|
./pkg/seaice/growth.F |
128 |
GROWTH |
YNEG(I,J,bi,bj)=GHEFF(I,J)-HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
222 |
GROWTH |
GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J)) |
|
./pkg/seaice/growth.F |
231 |
GROWTH |
& /(HEFF(I,J,1,bi,bj)+.00001 _d 0) |
|
./pkg/seaice/growth.F |
241 |
GROWTH |
GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J)) |
|
./pkg/seaice/growth.F |
242 |
GROWTH |
HEFF(I,J,1,bi,bj)=HEFF(I,J,1,bi,bj)+GHEFF(I,J) |
|
./pkg/seaice/growth.F |
306 |
GROWTH |
GAREA(I,J)=HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
314 |
GROWTH |
if(HEFF(i,j,1,bi,bj).gt.1.) then |
|
./pkg/seaice/growth.F |
316 |
GROWTH |
& HEFF(i,j,1,bi,bj),theta(I,J,1,bi,bj),yneg(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
332 |
GROWTH |
& ,HEFF(I,J,1,bi,bj)/.0001 _d 0) |
|
./pkg/seaice/growth.F |
356 |
GROWTH |
HEFF(I,J,1,bi,bj)=HEFF(I,J,1,bi,bj)*HEFFM(I,J,bi,bj) |