| 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 |
258 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
288 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
600 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
625 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
103 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(AREAITD ,'SIareaN ',0,nITD ,0,1,1,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
85 |
SEAICE_DIAGNOSTICS_STATE |
& tmp=AREAITD(I,J,K,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
124 |
SEAICE_DO_RIDGING |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
136 |
SEAICE_DO_RIDGING |
& AREAITD(i,j,1,bi,bj) = openWater(i,j)+AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
178 |
SEAICE_DO_RIDGING |
netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
207 |
SEAICE_DO_RIDGING |
areaPR(i,j,k) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
242 |
SEAICE_DO_RIDGING |
IF ( tmp .GT. AREAITD(i,j,k,bi,bj) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
243 |
SEAICE_DO_RIDGING |
tmpFac = AREAITD(i,j,k,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
299 |
SEAICE_DO_RIDGING |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - ridgingArea(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
379 |
SEAICE_DO_RIDGING |
AREAITD(i,j,l,bi,bj) = AREAITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
401 |
SEAICE_DO_RIDGING |
netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1761 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=AREAITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1850 |
SEAICE_GROWTH |
AREAITD(I,J,1,bi,bj)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1862 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj)=ZERO |
|
./pkg/seaice/seaice_growth.F |
1868 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1870 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = max(ZERO,AREAITD(I,J,IT,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1872 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = max(AREAITD(I,J,IT,bi,bj), |
|
./pkg/seaice/seaice_growth.F |
1877 |
SEAICE_GROWTH |
& +AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1892 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = AREAITDpreTH(I,J,IT) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
515 |
SEAICE_GROWTH |
AREAITDpreTH(I,J,IT)=AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
519 |
SEAICE_GROWTH |
areaFracFactor(I,J,IT)=AREAITD(I,J,IT,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
261 |
SEAICE_INIT_VARIA |
AREAITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
571 |
SEAICE_INIT_VARIA |
AREAITD(I,J,1,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
108 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,1,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
146 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
112 |
SEAICE_ITD_REDIST |
& AREAITD(i,j,1,bi,bj) = openWater(i,j) + AREAITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
124 |
SEAICE_ITD_REDIST |
IF (AREAITD(i,j,k,bi,bj) .lt. 0.0) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
127 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
128 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
129 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
154 |
SEAICE_ITD_REDIST |
& Hlimit(k)*AREAITD(i,j,k,bi,bj)) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
157 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
158 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
159 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
181 |
SEAICE_ITD_REDIST |
& Hlimit(k-1)*AREAITD(i,j,k,bi,bj)) THEN |
|
./pkg/seaice/seaice_itd_redist.F |
184 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k-1,bi,bj) = AREAITD (i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
185 |
SEAICE_ITD_REDIST |
& + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
186 |
SEAICE_ITD_REDIST |
AREAITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
93 |
SEAICE_ITD_REDIST |
openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
80 |
SEAICE_ITD_SUM |
AREA (i,j,bi,bj)=AREAITD (i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
89 |
SEAICE_ITD_SUM |
AREA (i,j,bi,bj) = AREA (i,j,bi,bj) + AREAITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_model.F |
222 |
SEAICE_MODEL |
CALL EXCH_3D_RL( AREAITD, nITD, myThid ) |
|
./pkg/seaice/seaice_output.F |
142 |
SEAICE_OUTPUT |
CALL WRITE_FLD_3D_RL( 'AREAITD.', suff, nITD, AREAITD, |
|
./pkg/seaice/seaice_output.F |
215 |
SEAICE_OUTPUT |
& AREAITDtave(i,j,k,bi,bj) +AREAITD(i,j,k,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_prepare_ridging.F |
103 |
SEAICE_PREPARE_RIDGING |
& /SQRT( AREAITD(i,j,k,bi,bj)**2 + area_reg_sq ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
125 |
SEAICE_PREPARE_RIDGING |
IF ( AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_floor ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
126 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,k) = gSum(i,j,k) + AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_read_pickup.F |
206 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siAREAn ', AREAITD, |
|
./pkg/seaice/seaice_read_pickup.F |
333 |
SEAICE_READ_PICKUP |
CALL EXCH_3D_RL( AREAITD, nITD, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
140 |
SEAICE_REG_RIDGE |
AREAITD(I,J,1,bi,bj) = AREAITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
166 |
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 |
240 |
SEAICE_REG_RIDGE |
& AREAITD(I,J,IT,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
270 |
SEAICE_REG_RIDGE |
AREAITD(I,J,IT,bi,bj)= |
|
./pkg/seaice/seaice_reg_ridge.F |
271 |
SEAICE_REG_RIDGE |
& MAX(AREAITD(I,J,IT,bi,bj),SEAICE_area_floor*recip_nitd) |
|
./pkg/seaice/seaice_reg_ridge.F |
333 |
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 ) |