| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_do_diags.F |
181 |
SEAICE_DO_DIAGS |
arr(i,j,bi,bj)=HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_diags.F |
260 |
SEAICE_DO_DIAGS |
& HEFFtave(i,j,1,bi,bj) +HEFF(i,j,1,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_pickup.F |
147 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, HEFF, 6, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
165 |
SEAICE_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 3, HEFF, 4, myIt,myThid) |
|
./pkg/seaice/seaice_pickup.F |
49 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, HEFF , 6, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
67 |
SEAICE_READ_PICKUP |
CALL MDSREADFIELD( fn, precFloat64, 'RL', 3, HEFF , 4, myThid ) |
|
./pkg/seaice/seaice_pickup.F |
86 |
SEAICE_READ_PICKUP |
CALL SEAICE_EXCH ( HEFF, myThid ) |
|
./pkg/seaice/SEAICE.h |
73 |
NO PROCEDURE |
COMMON/SEAICE_TRANS/HEFF,HSNOW |
|
./pkg/seaice/SEAICE.h |
74 |
NO PROCEDURE |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/seaice_map_thsice.F |
48 |
SEAICE_MAP_THSICE |
HEFF(i,j,1,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/seaice/advect.F |
107 |
ADVECT |
HEFF(I,J,1,bi,bj)=HEFF(I,J,K3,bi,bj) |
|
./pkg/seaice/advect.F |
110 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I+1,J ,2,bi,bj)) |
|
./pkg/seaice/advect.F |
113 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I-1,J ,2,bi,bj)) |
|
./pkg/seaice/advect.F |
116 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I ,J+1,2,bi,bj)) |
|
./pkg/seaice/advect.F |
119 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I ,J-1,2,bi,bj)) |
|
./pkg/seaice/advect.F |
129 |
ADVECT |
CALL SEAICE_EXCH ( HEFF, myThid ) |
|
./pkg/seaice/advect.F |
139 |
ADVECT |
HEFF(I,J,3,bi,bj)=HEFF(I,J,2,bi,bj) |
|
./pkg/seaice/advect.F |
140 |
ADVECT |
HEFF(I,J,2,bi,bj)=HALF*(HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/advect.F |
141 |
ADVECT |
& +HEFF(I,J,2,bi,bj)) |
|
./pkg/seaice/advect.F |
155 |
ADVECT |
HEFF(I,J,1,bi,bj)=HEFF(I,J,3,bi,bj) |
|
./pkg/seaice/advect.F |
157 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I+1,J ,2,bi,bj)) |
|
./pkg/seaice/advect.F |
159 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I-1,J ,2,bi,bj)) |
|
./pkg/seaice/advect.F |
163 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I ,J+1,2,bi,bj)) |
|
./pkg/seaice/advect.F |
166 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I ,J-1,2,bi,bj)) |
|
./pkg/seaice/advect.F |
180 |
ADVECT |
HEFF(I,J,1,bi,bj)=HEFF(I,J,3,bi,bj) |
|
./pkg/seaice/advect.F |
183 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I+1,J ,2,bi,bj)) |
|
./pkg/seaice/advect.F |
186 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I-1,J ,2,bi,bj)) |
|
./pkg/seaice/advect.F |
189 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I ,J+1,2,bi,bj)) |
|
./pkg/seaice/advect.F |
192 |
ADVECT |
& (HEFF(I ,J ,2,bi,bj)+HEFF(I ,J-1,2,bi,bj)) |
|
./pkg/seaice/advect.F |
202 |
ADVECT |
CALL SEAICE_EXCH( HEFF, myThid ) |
|
./pkg/seaice/advect.F |
210 |
ADVECT |
HEFF(I,J,2,bi,bj)=HEFF(I,J,3,bi,bj) |
|
./pkg/seaice/advect.F |
230 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
236 |
ADVECT |
HEFF(I,J,1,bi,bj)=(HEFF(I,J,1,bi,bj)+HEFF(I,J,3,bi,bj)) |
|
./pkg/seaice/advect.F |
254 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
260 |
ADVECT |
HEFF(I,J,1,bi,bj)=(HEFF(I,J,1,bi,bj)+HEFF(I,J,3,bi,bj)) |
|
./pkg/seaice/advect.F |
31 |
ADVECT |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/advect.F |
62 |
ADVECT |
HEFF(I,J,3,bi,bj)=HEFF(I,J,2,bi,bj) |
|
./pkg/seaice/advect.F |
63 |
ADVECT |
HEFF(I,J,2,bi,bj)=HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/advect.F |
7 |
ADVECT |
SUBROUTINE ADVECT( UI,VI,HEFF,HEFFM,myThid ) |
|
./pkg/seaice/advect.F |
82 |
ADVECT |
HEFF(I,J,1,bi,bj)=HEFF(I,J,K3,bi,bj) |
|
./pkg/seaice/advect.F |
84 |
ADVECT |
& ( HEFF(I ,J ,2,bi,bj)+HEFF(I+1,J ,2,bi,bj)) |
|
./pkg/seaice/advect.F |
86 |
ADVECT |
& ( HEFF(I ,J ,2,bi,bj)+HEFF(I-1,J ,2,bi,bj)) |
|
./pkg/seaice/advect.F |
90 |
ADVECT |
& ( HEFF(I ,J ,2,bi,bj)+HEFF(I ,J+1,2,bi,bj)) |
|
./pkg/seaice/advect.F |
93 |
ADVECT |
& ( HEFF(I ,J ,2,bi,bj)+HEFF(I ,J-1,2,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
156 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
96 |
DYNSOLVER |
& HEFF(i,j ,1,bi,bj) + HEFF(i-1,j ,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
97 |
DYNSOLVER |
& +HEFF(i,j-1,1,bi,bj) + HEFF(i-1,j-1,1,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 |
269 |
SEAICE_INIT |
HEFF(I,J,k,bi,bj) = MAX(ZETA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init.F |
282 |
SEAICE_INIT |
IF(HEFF(I,J,k,bi,bj).GT.ZERO) AREA(I,J,k,bi,bj)=ONE |
|
./pkg/seaice/seaice_init.F |
296 |
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/seaice_dynsolver.F |
210 |
SEAICE_DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
82 |
SEAICE_DYNSOLVER |
seaiceMassC(I,J,bi,bj)=RHOICE*HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
84 |
SEAICE_DYNSOLVER |
& HEFF(i,j,1,bi,bj) + HEFF(i-1,j ,1,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
86 |
SEAICE_DYNSOLVER |
& HEFF(i,j,1,bi,bj) + HEFF(i ,j-1,1,bi,bj) ) |
|
./pkg/seaice/groatb.F |
97 |
GROATB |
HICE(I,J)=HEFF(I,J,2,bi,bj)/AREA(I,J,2,bi,bj) |
|
./pkg/seaice/budget.F |
27 |
BUDGET |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/budget.F |
33 |
BUDGET |
COMMON/SEAICE_TRANS/HEFF,HSNOW |
|
./pkg/seaice/growth.F |
101 |
GROWTH |
& HEFF(I,J,2,bi,bj)*1.0 _d +04) |
|
./pkg/seaice/growth.F |
130 |
GROWTH |
GHEFF(I,J)=HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
131 |
GROWTH |
HEFF(I,J,1,bi,bj)=MAX(ZERO,HEFF(I,J,1,bi,bj)-YNEG(I,J,bi,bj)) |
|
./pkg/seaice/growth.F |
132 |
GROWTH |
YNEG(I,J,bi,bj)=GHEFF(I,J)-HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
231 |
GROWTH |
GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J)) |
|
./pkg/seaice/growth.F |
240 |
GROWTH |
& /(HEFF(I,J,1,bi,bj)+.00001 _d 0) |
|
./pkg/seaice/growth.F |
250 |
GROWTH |
GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J)) |
|
./pkg/seaice/growth.F |
251 |
GROWTH |
HEFF(I,J,1,bi,bj)=HEFF(I,J,1,bi,bj)+GHEFF(I,J) |
|
./pkg/seaice/growth.F |
316 |
GROWTH |
GAREA(I,J)=HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/growth.F |
324 |
GROWTH |
if(HEFF(i,j,1,bi,bj).gt.1.) then |
|
./pkg/seaice/growth.F |
326 |
GROWTH |
& HEFF(i,j,1,bi,bj),theta(I,J,1,bi,bj),yneg(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
342 |
GROWTH |
& ,HEFF(I,J,1,bi,bj)/.0001 _d 0) |
|
./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/seaice_model.F |
144 |
SEAICE_MODEL |
CALL SEAICE_EXCH( HEFF, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
162 |
SEAICE_ADVDIFF |
HEFF(I,J,3,bi,bj) = 0. _d 0 !HEFF(I,J,2,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
163 |
SEAICE_ADVDIFF |
HEFF(I,J,2,bi,bj) = HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
202 |
SEAICE_ADVDIFF |
fld(I,J,bi,bj) = HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
213 |
SEAICE_ADVDIFF |
HEFF(I,J,1,bi,bj) = HEFFM(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
214 |
SEAICE_ADVDIFF |
& HEFF(I,J,1,bi,bj) + SEAICE_deltaTtherm * gFld(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
232 |
SEAICE_ADVDIFF |
& ' , heff_b,a=', HEFF(I,J,2,bi,bj),HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
240 |
SEAICE_ADVDIFF |
IF ( HEFF(I,J,1,bi,bj) .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_advdiff.F |
241 |
SEAICE_ADVDIFF |
& recip_heff(I,J) = 1./HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
247 |
SEAICE_ADVDIFF |
iceHeight(I,J,bi,bj) = HEFF(I,J,1,bi,bj)*recip_area(I,J) |
|
./pkg/seaice/seaice_advdiff.F |
255 |
SEAICE_ADVDIFF |
fld(i,j,bi,bj) = Qice1(i,j,bi,bj)*HEFF(i,j,2,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
286 |
SEAICE_ADVDIFF |
fld(i,j,bi,bj) = Qice2(i,j,bi,bj)*HEFF(i,j,2,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
351 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HEFF, HEFFM, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
145 |
SEAICE_MONITOR |
TMP_DIAG(i,j,bi,bj)=HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/diffus.F |
109 |
DIFFUS |
HEFF(I,J,3,bi,bj)=HEFF1(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
24 |
DIFFUS |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy) |
|
./pkg/seaice/diffus.F |
57 |
DIFFUS |
& (HEFF(I+1,J,3,bi,bj)-HEFF(I, J,3,bi,bj)) |
|
./pkg/seaice/diffus.F |
59 |
DIFFUS |
& -(HEFF(I, J,3,bi,bj)-HEFF(I-1,J,3,bi,bj)) |
|
./pkg/seaice/diffus.F |
62 |
DIFFUS |
& (HEFF(I,J+1,3,bi,bj)-HEFF(I,J, 3,bi,bj)) |
|
./pkg/seaice/diffus.F |
64 |
DIFFUS |
& -(HEFF(I,J, 3,bi,bj)-HEFF(I,J-1,3,bi,bj)) |
|
./pkg/seaice/diffus.F |
76 |
DIFFUS |
& * (HEFF(I+1,J,3,bi,bj)-HEFF(I, J,3,bi,bj)) |
|
./pkg/seaice/diffus.F |
79 |
DIFFUS |
& * (HEFF(I, J,3,bi,bj)-HEFF(I-1,J,3,bi,bj)) |
|
./pkg/seaice/diffus.F |
7 |
DIFFUS |
SUBROUTINE DIFFUS( HEFF, DIFFA, HEFFM, DELTT, myThid ) |
|
./pkg/seaice/diffus.F |
83 |
DIFFUS |
& * (HEFF(I,J+1,3,bi,bj)-HEFF(I,J, 3,bi,bj)) |
|
./pkg/seaice/diffus.F |
89 |
DIFFUS |
& * (HEFF(I,J, 3,bi,bj)-HEFF(I,J-1,3,bi,bj)) |
|
./pkg/seaice/cost_ice_test.F |
149 |
COST_ICE_TEST |
& HEFF(i,j,1,bi,bj) * 334000 * 910 ) |
|
./pkg/seaice/cost_ice_test.F |
181 |
COST_ICE_TEST |
& HEFF(I,J,1,bi,bj) * 2090 * 910 - |
|
./pkg/seaice/cost_ice_test.F |
182 |
COST_ICE_TEST |
& HEFF(i,j,1,bi,bj) * 334000 * 910 - |
|
./pkg/seaice/cost_ice_test.F |
99 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * HEFF(i,j,1,bi,bj) |