| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_seaice.F |
115 |
OBCS_APPLY_SEAICE |
AREA (Iobc,j,bi,bj) = OBWa (j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
145 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc-1,bi,bj)+AREA(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
146 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
147 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
184 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc+1,bi,bj)+AREA(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
185 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
186 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
223 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc-1,j,bi,bj)+AREA(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
224 |
OBCS_APPLY_SEAICE |
AREA(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
225 |
OBCS_APPLY_SEAICE |
AREA(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
262 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc+1,j,bi,bj)+AREA(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
263 |
OBCS_APPLY_SEAICE |
AREA(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
264 |
OBCS_APPLY_SEAICE |
AREA(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
64 |
OBCS_APPLY_SEAICE |
AREA (i,Jobc,bi,bj) = OBNa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
81 |
OBCS_APPLY_SEAICE |
AREA (i,Jobc,bi,bj) = OBSa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
98 |
OBCS_APPLY_SEAICE |
AREA (Iobc,j,bi,bj) = OBEa (j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
124 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
126 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBEa(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
151 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
153 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBWa(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
70 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
72 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBNa(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
97 |
OBCS_SEAICE_SPONGE_A |
AREA(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
99 |
OBCS_SEAICE_SPONGE_A |
& * ( AREA(i,j,bi,bj) - OBSa(i,bi,bj) ) |
|
./model/src/forcing_surf_relax.F |
84 |
FORCING_SURF_RELAX |
& -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj)) |
|
./model/src/forcing_surf_relax.F |
89 |
FORCING_SURF_RELAX |
& -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj)) |
|
./pkg/seaice/SEAICE.h |
66 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE |
|
./pkg/seaice/SEAICE.h |
77 |
NO PROCEDURE |
_RL AREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/cost_ice_test.F |
115 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * AREA(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
202 |
COST_ICE_TEST |
& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
203 |
COST_ICE_TEST |
& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) |
|
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag_south*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
150 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
152 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
226 |
DYNSOLVER |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/ostres.F |
88 |
OSTRES |
fu(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fu(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
89 |
OSTRES |
& AREA(I,J,bi,bj)*fuIce |
|
./pkg/seaice/ostres.F |
90 |
OSTRES |
fv(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fv(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
91 |
OSTRES |
& AREA(I,J,bi,bj)*fvIce |
|
./pkg/seaice/seaice_advdiff.F |
198 |
SEAICE_ADVDIFF |
areaNm1(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
261 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
268 |
SEAICE_ADVDIFF |
I uTrans, vTrans, AREA(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
275 |
SEAICE_ADVDIFF |
I AREA(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
283 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
284 |
SEAICE_ADVDIFF |
& AREA(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
291 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
507 |
SEAICE_ADVDIFF |
if (AREA(I,J,bi,bj).GE.SEAICE_area_floor) then |
|
./pkg/seaice/seaice_advdiff.F |
508 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
521 |
SEAICE_ADVDIFF |
if (AREA(I,J,bi,bj).GE.SEAICE_area_floor) then |
|
./pkg/seaice/seaice_advdiff.F |
528 |
SEAICE_ADVDIFF |
& + AREA(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)*HEFFM(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 |
104 |
SEAICE_BOTTOMDRAG_COEFFS |
IF ( AREA(I,J,bi,bj) .GT. 0.01 _d 0 ) THEN |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
127 |
SEAICE_BOTTOMDRAG_COEFFS |
IF ( AREA(I,J,bi,bj) .GT. 0.01 _d 0 ) THEN |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
138 |
SEAICE_BOTTOMDRAG_COEFFS |
hCrit = ABS(R_low(I,J,bi,bj))*AREA(I,J,bi,bj)*recip_k1 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
152 |
SEAICE_BOTTOMDRAG_COEFFS |
& *(SEAICE_area_max - AREA(I,J,bi,bj)) ) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
18 |
SEAICE_BOTTOMDRAG_COEFFS |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
20 |
SEAICE_BOTTOMDRAG_COEFFS |
I HEFF, AREA, |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
68 |
SEAICE_BOTTOMDRAG_COEFFS |
_RL AREA(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
118 |
SEAICE_CALC_ICE_STRENGTH |
& *EXP(-SEAICE_cStar*(SEAICE_area_max-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
95 |
SEAICE_CALC_ICE_STRENGTH |
opnWtrFrac(i,j,bi,bj) = 1. _d 0 - AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
139 |
SEAICE_CALC_LHS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
140 |
SEAICE_CALC_LHS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_residual.F |
90 |
SEAICE_CALC_RESIDUAL |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_calc_residual.F |
92 |
SEAICE_CALC_RESIDUAL |
I HEFF, AREA, |
|
./pkg/seaice/seaice_calc_rhs.F |
82 |
SEAICE_CALC_RHS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
83 |
SEAICE_CALC_RHS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
119 |
SEAICE_DIAGNOSTICS_STATE |
I SItracer(1-OLx,1-OLy,1,1,iTracer), AREA, |
|
./pkg/seaice/seaice_diagnostics_state.F |
66 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( AREA, 'SIarea ', 0, 1, 0, 1,1, myThid ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
87 |
SEAICE_DIAGNOSTICS_STATE |
IF (AREA(I,J,bi,bj) .GT. ZERO) |
|
./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_diagnostics_state.F |
98 |
SEAICE_DIAGNOSTICS_STATE |
I tIce, AREA, 1. _d 0, 1, 'SItices ', |
|
./pkg/seaice/seaice_do_ridging.F |
114 |
SEAICE_DO_RIDGING |
AREA(I,J,bi,bj) = MIN(AREA(I,J,bi,bj),SEAICE_area_max) |
|
./pkg/seaice/seaice_dynsolver.F |
149 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
157 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
199 |
SEAICE_DYNSOLVER |
I uIce, vIce, AREA, |
|
./pkg/seaice/seaice_dynsolver.F |
237 |
SEAICE_DYNSOLVER |
& * 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
239 |
SEAICE_DYNSOLVER |
& * 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
79 |
SEAICE_DYNSOLVER |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_evp.F |
270 |
SEAICE_EVP |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
272 |
SEAICE_EVP |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
704 |
SEAICE_EVP |
resTile(bi,bj) = resTile(bi,bj) + AREA(i,j,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
753 |
SEAICE_EVP |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_evp.F |
755 |
SEAICE_EVP |
I HEFF, AREA, |
|
./pkg/seaice/seaice_evp.F |
938 |
SEAICE_EVP |
resTile(bi,bj) = resTile(bi,bj) + AREA(i,j,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
1783 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=AREAITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1847 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MAX(0. _d 0, |
|
./pkg/seaice/seaice_growth.F |
1848 |
SEAICE_GROWTH |
& MIN( SEAICE_area_max, AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1852 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1855 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,3)=AREA(I,J,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 |
1936 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
2546 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = AREA(I,J,bi,bj)-AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
515 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
517 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
523 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,2)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
536 |
SEAICE_GROWTH |
IF (AREA(I,J,bi,bj) .GT. ZERO) THEN |
|
./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_growth.F |
581 |
SEAICE_GROWTH |
I SItracer(1-OLx,1-OLy,bi,bj,iTr),AREA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
258 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
522 |
SEAICE_INIT_VARIA |
IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init_varia.F |
530 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( AreaFile, ' ', AREA, 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
531 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(AREA,myThid) |
|
./pkg/seaice/seaice_init_varia.F |
536 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
537 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MIN(AREA(i,j,bi,bj),ONE) |
|
./pkg/seaice/seaice_init_varia.F |
538 |
SEAICE_INIT_VARIA |
IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
539 |
SEAICE_INIT_VARIA |
IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
550 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
576 |
SEAICE_INIT_VARIA |
AREAITD(I,J,1,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
579 |
SEAICE_INIT_VARIA |
opnWtrFrac(I,J,bi,bj) = 1. _d 0 - AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
627 |
SEAICE_INIT_VARIA |
AREAforAtmFW(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
679 |
SEAICE_INIT_VARIA |
& *EXP(-SEAICE_cStar*(ONE-AREA(i,j,bi,bj))) |
|
./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 |
143 |
SEAICE_ITD_PICKUP |
LND_mu = log(HEFF(i,j,bi,bj)/AREA(i,j,bi,bj)) |
|
./pkg/seaice/seaice_itd_pickup.F |
157 |
SEAICE_ITD_PICKUP |
& * AREA(i,j,bi,bj) |
|
./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_krylov.F |
214 |
SEAICE_KRYLOV |
I HEFF, AREA, |
|
./pkg/seaice/seaice_lsr.F |
1249 |
SEAICE_LSR_CALC_COEFFS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1250 |
SEAICE_LSR_CALC_COEFFS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
212 |
SEAICE_LSR |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
214 |
SEAICE_LSR |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
342 |
SEAICE_LSR |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_lsr.F |
344 |
SEAICE_LSR |
I HEFF, AREA, |
|
./pkg/seaice/seaice_map_thsice.F |
60 |
SEAICE_MAP_THSICE |
AREA(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/seaice/seaice_model.F |
225 |
SEAICE_MODEL |
_EXCH_XY_RL( AREA, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
118 |
SEAICE_MONITOR |
CALL MON_WRITESTATS_RL( 1, AREA, '_area', |
|
./pkg/seaice/seaice_ocean_stress.F |
117 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
119 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
65 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
75 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_output.F |
213 |
SEAICE_OUTPUT |
& AREAtave(i,j,bi,bj) +AREA(i,j,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_preconditioner.F |
502 |
SEAICE_PRECOND_RHSU |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
607 |
SEAICE_PRECOND_RHSV |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_read_pickup.F |
163 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, AREA , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
217 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siAREA ', AREA, |
|
./pkg/seaice/seaice_read_pickup.F |
323 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL( AREA, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
132 |
SEAICE_REG_RIDGE |
IF ( exf_iceFraction(I,J,bi,bj).GT.AREA(I,J,bi,bj) ) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
135 |
SEAICE_REG_RIDGE |
& * (exf_iceFraction(I,J,bi,bj) - AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_reg_ridge.F |
138 |
SEAICE_REG_RIDGE |
& AREA(I,J,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
148 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj) + d_AREAbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
190 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
255 |
SEAICE_REG_RIDGE |
& (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
286 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),SEAICE_area_floor) |
|
./pkg/seaice/seaice_reg_ridge.F |
373 |
SEAICE_REG_RIDGE |
DIAGarrayA(I,J) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
376 |
SEAICE_REG_RIDGE |
SItrAREA(I,J,bi,bj,1)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
380 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MIN(AREA(I,J,bi,bj),SEAICE_area_max) |
|
./pkg/seaice/seaice_write_pickup.F |
119 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, AREA , nj, myIter, myThid ) |
|
./pkg/autodiff/autodiff_restore.F |
460 |
AUTODIFF_RESTORE |
AREA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
566 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,1) = AREA(I,J,bi,bj) |
|
./pkg/bling/bling_fields_load.F |
214 |
BLING_FIELDS_LOAD |
FIce(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
233 |
CFC_FIELDS_LOAD |
FIce(I,J,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/dic/dic_fields_update.F |
67 |
DIC_FIELDS_UPDATE |
fIce(i,j,bi,bj) = AREA(i,j,bi,bj) |