| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
68 |
NO PROCEDURE |
& ,AREAITD,HEFFITD,HSNOWITD, |
|
./pkg/seaice/SEAICE.h |
70 |
NO PROCEDURE |
_RL AREAITD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
|
./pkg/seaice/seaice_advdiff.F |
261 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
291 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
603 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
628 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
135 |
SEAICE_BOTTOMDRAG_COEFFS |
hCrit = ABS(R_low(I,J,bi,bj))*AREAITD(I,J,k,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
18 |
SEAICE_BOTTOMDRAG_COEFFS |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
64 |
SEAICE_BOTTOMDRAG_COEFFS |
_RL AREAITD(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
|
./pkg/seaice/seaice_calc_residual.F |
90 |
SEAICE_CALC_RESIDUAL |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_diagnostics_state.F |
106 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(AREAITD ,'SIareaN ',0,nITD ,0,1,1,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
88 |
SEAICE_DIAGNOSTICS_STATE |
& tmp=AREAITD(I,J,K,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
127 |
SEAICE_DO_RIDGING |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
139 |
SEAICE_DO_RIDGING |
& AREAITD(i,j,1,bi,bj) = openWater(i,j)+AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
181 |
SEAICE_DO_RIDGING |
netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
210 |
SEAICE_DO_RIDGING |
areaPR(i,j,k) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
245 |
SEAICE_DO_RIDGING |
IF ( tmp .GT. AREAITD(i,j,k,bi,bj) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
246 |
SEAICE_DO_RIDGING |
tmpFac = AREAITD(i,j,k,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
302 |
SEAICE_DO_RIDGING |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - ridgingArea(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
382 |
SEAICE_DO_RIDGING |
AREAITD(i,j,l,bi,bj) = AREAITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
404 |
SEAICE_DO_RIDGING |
netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
753 |
SEAICE_EVP |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_growth.F |
1783 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=AREAITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1876 |
SEAICE_GROWTH |
AREAITD(I,J,1,bi,bj)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1888 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj)=ZERO |
|
./pkg/seaice/seaice_growth.F |
1902 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1907 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = max(AREAITD(I,J,IT,bi,bj), |
|
./pkg/seaice/seaice_growth.F |
1912 |
SEAICE_GROWTH |
& +AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1927 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = AREAITDpreTH(I,J,IT) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
533 |
SEAICE_GROWTH |
AREAITDpreTH(I,J,IT)=AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
537 |
SEAICE_GROWTH |
areaFracFactor(I,J,IT)=AREAITD(I,J,IT,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
262 |
SEAICE_INIT_VARIA |
AREAITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
576 |
SEAICE_INIT_VARIA |
AREAITD(I,J,1,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
110 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
125 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,1,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
163 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
115 |
SEAICE_ITD_REDIST |
& AREAITD(i,j,1,bi,bj) = openWater(i,j) + AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
127 |
SEAICE_ITD_REDIST |
IF (AREAITD(i,j,k,bi,bj) .lt. 0.0) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
130 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
131 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
132 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
157 |
SEAICE_ITD_REDIST |
& Hlimit(k)*AREAITD(i,j,k,bi,bj)) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
160 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
161 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
162 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
184 |
SEAICE_ITD_REDIST |
& Hlimit(k-1)*AREAITD(i,j,k,bi,bj)) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
187 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k-1,bi,bj) = AREAITD (i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
188 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
189 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
96 |
SEAICE_ITD_REDIST |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
132 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
134 |
SEAICE_ITD_REMAP |
& /SQRT( AREAITD(i,j,k,bi,bj)**2 + area_reg_sq ) |
|
./pkg/seaice/seaice_itd_remap.F |
142 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
143 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = HEFFITD(i,j,k,bi,bj)/AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
176 |
SEAICE_ITD_REMAP |
IF ( ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
178 |
SEAICE_ITD_REMAP |
& ( AREAITD(i,j,k+1,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
196 |
SEAICE_ITD_REMAP |
I AREAITD, hActual, hActualPre, hLimitNew, doRemapping, |
|
./pkg/seaice/seaice_itd_remap.F |
204 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg ) |
|
./pkg/seaice/seaice_itd_remap.F |
219 |
SEAICE_ITD_REMAP |
aLoc(i,j) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
239 |
SEAICE_ITD_REMAP |
& AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
249 |
SEAICE_ITD_REMAP |
daMax = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
253 |
SEAICE_ITD_REMAP |
IF ( (AREAITD(i,j,k,bi,bj)-da0) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
255 |
SEAICE_ITD_REMAP |
& * AREAITD(i,j,k,bi,bj)/( AREAITD(i,j,k,bi,bj) - da0 ) |
|
./pkg/seaice/seaice_itd_remap.F |
258 |
SEAICE_ITD_REMAP |
da0 = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
261 |
SEAICE_ITD_REMAP |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - da0 |
|
./pkg/seaice/seaice_itd_remap.F |
277 |
SEAICE_ITD_REMAP |
aLoc(i,j) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
325 |
SEAICE_ITD_REMAP |
IF ( (darea .GT.AREAITD(i,j,kDonor,bi,bj)-SEAICE_eps).OR. |
|
./pkg/seaice/seaice_itd_remap.F |
327 |
SEAICE_ITD_REMAP |
darea = AREAITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
339 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,kDonor,bi,bj) .GT. SEAICE_area_reg ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
341 |
SEAICE_ITD_REMAP |
dhsnw = darea/AREAITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
352 |
SEAICE_ITD_REMAP |
AREAITD(i,j,kRecvr,bi,bj) = AREAITD(i,j,kRecvr,bi,bj) + darea |
|
./pkg/seaice/seaice_itd_remap.F |
353 |
SEAICE_ITD_REMAP |
AREAITD(i,j,kDonor,bi,bj) = AREAITD(i,j,kDonor,bi,bj) - darea |
|
./pkg/seaice/seaice_itd_remap.F |
487 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
I AREAITD, hActual, hActualPre, hLimitNew, doRemapping, |
|
./pkg/seaice/seaice_itd_remap.F |
523 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
_RL AREAITD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
|
./pkg/seaice/seaice_itd_remap.F |
544 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( AREAITD(i,j,k,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
554 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
IF ( AREAITD(i,j,k+1,bi,bj).GT.SEAICE_area_reg .AND. |
|
./pkg/seaice/seaice_itd_remap.F |
562 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& AREAITD(i,j,k+1,bi,bj), hActual(i,j,k+1), |
|
./pkg/seaice/seaice_itd_remap.F |
564 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
& AREAITD(i,j,k,bi,bj), hActual(i,j,k), |
|
./pkg/seaice/seaice_itd_sum.F |
83 |
SEAICE_ITD_SUM |
AREA (i,j,bi,bj)=AREAITD (i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
92 |
SEAICE_ITD_SUM |
AREA (i,j,bi,bj) = AREA (i,j,bi,bj) + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
212 |
SEAICE_KRYLOV |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_lsr.F |
342 |
SEAICE_LSR |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_model.F |
229 |
SEAICE_MODEL |
CALL EXCH_3D_RL( AREAITD, nITD, myThid ) |
|
./pkg/seaice/seaice_output.F |
149 |
SEAICE_OUTPUT |
CALL WRITE_FLD_3D_RL( 'AREAITD.', suff, nITD, AREAITD, |
|
./pkg/seaice/seaice_output.F |
223 |
SEAICE_OUTPUT |
& AREAITDtave(i,j,k,bi,bj) +AREAITD(i,j,k,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_prepare_ridging.F |
106 |
SEAICE_PREPARE_RIDGING |
& /SQRT( AREAITD(i,j,k,bi,bj)**2 + area_reg_sq ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
128 |
SEAICE_PREPARE_RIDGING |
IF ( AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_floor ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
129 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,k) = gSum(i,j,k) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_read_pickup.F |
211 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siAREAn ', AREAITD, |
|
./pkg/seaice/seaice_read_pickup.F |
338 |
SEAICE_READ_PICKUP |
CALL EXCH_3D_RL( AREAITD, nITD, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
143 |
SEAICE_REG_RIDGE |
AREAITD(I,J,1,bi,bj) = AREAITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
169 |
SEAICE_REG_RIDGE |
AREAITD(I,J,IT,bi,bj)=MAX(AREAITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
243 |
SEAICE_REG_RIDGE |
& AREAITD(I,J,IT,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
273 |
SEAICE_REG_RIDGE |
AREAITD(I,J,IT,bi,bj)= |
|
./pkg/seaice/seaice_reg_ridge.F |
274 |
SEAICE_REG_RIDGE |
& MAX(AREAITD(I,J,IT,bi,bj),SEAICE_area_floor*recip_nitd) |
|
./pkg/seaice/seaice_reg_ridge.F |
336 |
SEAICE_REG_RIDGE |
tmpscal3itd(i,j)=tmpscal3itd(i,j) + AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_write_pickup.F |
89 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, AREAITD, -j, myIter,myThid ) |