| 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) ) |
|
./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 |
142 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag_south*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
144 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
149 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
223 |
DYNSOLVER |
& *EXP(-20.0 _d 0*(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 |
195 |
SEAICE_ADVDIFF |
areaNm1(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
258 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
265 |
SEAICE_ADVDIFF |
I uTrans, vTrans, AREA(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
272 |
SEAICE_ADVDIFF |
I AREA(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
280 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
281 |
SEAICE_ADVDIFF |
& AREA(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
288 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
504 |
SEAICE_ADVDIFF |
if (AREA(I,J,bi,bj).GE.SEAICE_area_floor) then |
|
./pkg/seaice/seaice_advdiff.F |
505 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
518 |
SEAICE_ADVDIFF |
if (AREA(I,J,bi,bj).GE.SEAICE_area_floor) then |
|
./pkg/seaice/seaice_advdiff.F |
525 |
SEAICE_ADVDIFF |
& + AREA(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)*HEFFM(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_calc_ice_strength.F |
115 |
SEAICE_CALC_ICE_STRENGTH |
& *EXP(-20.0 _d 0*(SEAICE_area_max-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
92 |
SEAICE_CALC_ICE_STRENGTH |
opnWtrFrac(i,j,bi,bj) = 1. _d 0 - AREA(i,j,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_diagnostics_state.F |
116 |
SEAICE_DIAGNOSTICS_STATE |
I SItracer(1-OLx,1-OLy,1,1,iTracer), AREA, |
|
./pkg/seaice/seaice_diagnostics_state.F |
63 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( AREA, 'SIarea ', 0, 1, 0, 1,1, myThid ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
84 |
SEAICE_DIAGNOSTICS_STATE |
IF (AREA(I,J,bi,bj) .GT. ZERO) |
|
./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_diagnostics_state.F |
95 |
SEAICE_DIAGNOSTICS_STATE |
I tIce, AREA, 1. _d 0, 1, 'SItices ', |
|
./pkg/seaice/seaice_do_ridging.F |
111 |
SEAICE_DO_RIDGING |
AREA(I,J,bi,bj) = MIN(AREA(I,J,bi,bj),SEAICE_area_max) |
|
./pkg/seaice/seaice_dynsolver.F |
131 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
139 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
74 |
SEAICE_DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,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 |
1825 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MAX(0. _d 0, |
|
./pkg/seaice/seaice_growth.F |
1826 |
SEAICE_GROWTH |
& MIN( SEAICE_area_max, AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1829 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1832 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,3)=AREA(I,J,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 |
1901 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
2506 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = AREA(I,J,bi,bj)-AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
497 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
499 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
505 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,2)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
518 |
SEAICE_GROWTH |
IF (AREA(I,J,bi,bj) .GT. ZERO) THEN |
|
./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_growth.F |
563 |
SEAICE_GROWTH |
I SItracer(1-OLx,1-OLy,bi,bj,iTr),AREA(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
257 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
517 |
SEAICE_INIT_VARIA |
IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init_varia.F |
525 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( AreaFile, ' ', AREA, 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
526 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(AREA,myThid) |
|
./pkg/seaice/seaice_init_varia.F |
531 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
532 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MIN(AREA(i,j,bi,bj),ONE) |
|
./pkg/seaice/seaice_init_varia.F |
533 |
SEAICE_INIT_VARIA |
IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
534 |
SEAICE_INIT_VARIA |
IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
545 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
571 |
SEAICE_INIT_VARIA |
AREAITD(I,J,1,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
574 |
SEAICE_INIT_VARIA |
opnWtrFrac(I,J,bi,bj) = 1. _d 0 - AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
622 |
SEAICE_INIT_VARIA |
AREAforAtmFW(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
675 |
SEAICE_INIT_VARIA |
& *EXP(-20.0 _d 0*(ONE-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 |
126 |
SEAICE_ITD_PICKUP |
LND_mu = log(HEFF(i,j,bi,bj)/AREA(i,j,bi,bj)) |
|
./pkg/seaice/seaice_itd_pickup.F |
140 |
SEAICE_ITD_PICKUP |
& * AREA(i,j,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_map_thsice.F |
57 |
SEAICE_MAP_THSICE |
AREA(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/seaice/seaice_model.F |
218 |
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 |
205 |
SEAICE_OUTPUT |
& AREAtave(i,j,bi,bj) +AREA(i,j,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_read_pickup.F |
158 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, AREA , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
212 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siAREA ', AREA, |
|
./pkg/seaice/seaice_read_pickup.F |
318 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL( AREA, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
129 |
SEAICE_REG_RIDGE |
IF ( exf_iceFraction(I,J,bi,bj).GT.AREA(I,J,bi,bj) ) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
132 |
SEAICE_REG_RIDGE |
& * (exf_iceFraction(I,J,bi,bj) - AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_reg_ridge.F |
135 |
SEAICE_REG_RIDGE |
& AREA(I,J,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
145 |
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 |
187 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
252 |
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 |
283 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),SEAICE_area_floor) |
|
./pkg/seaice/seaice_reg_ridge.F |
370 |
SEAICE_REG_RIDGE |
DIAGarrayA(I,J) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
373 |
SEAICE_REG_RIDGE |
SItrAREA(I,J,bi,bj,1)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
377 |
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 |
451 |
AUTODIFF_RESTORE |
AREA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
549 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,1) = 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_load.F |
246 |
DIC_FIELDS_LOAD |
FIce(i,j,bi,bj) = AREA(i,j,bi,bj) |