| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_seaice.F |
117 |
OBCS_APPLY_SEAICE |
AREA(i,j,bi,bj) = OBWa (j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
148 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc-1,bi,bj)+AREA(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
149 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
150 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
187 |
OBCS_APPLY_SEAICE |
& (AREA(i,Jobc+1,bi,bj)+AREA(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
188 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
189 |
OBCS_APPLY_SEAICE |
AREA(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
226 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc-1,j,bi,bj)+AREA(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
227 |
OBCS_APPLY_SEAICE |
AREA(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
228 |
OBCS_APPLY_SEAICE |
AREA(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
265 |
OBCS_APPLY_SEAICE |
& (AREA(Iobc+1,j,bi,bj)+AREA(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
266 |
OBCS_APPLY_SEAICE |
AREA(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
267 |
OBCS_APPLY_SEAICE |
AREA(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
60 |
OBCS_APPLY_SEAICE |
AREA(i,j,bi,bj) = OBNa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
79 |
OBCS_APPLY_SEAICE |
AREA(i,j,bi,bj) = OBSa (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
98 |
OBCS_APPLY_SEAICE |
AREA(i,j,bi,bj) = OBEa (j,bi,bj) |
|
./pkg/seaice/SEAICE.h |
64 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE |
|
./pkg/seaice/SEAICE.h |
65 |
NO PROCEDURE |
_RL AREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/cost_ice_test.F |
114 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * AREA(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
201 |
COST_ICE_TEST |
& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
202 |
COST_ICE_TEST |
& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) |
|
./pkg/seaice/dynsolver.F |
138 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag_south*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
140 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
143 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
219 |
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 |
166 |
SEAICE_ADVDIFF |
AREANM1(i,j,bi,bj) = AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
217 |
SEAICE_ADVDIFF |
I uTrans, vTrans, AREA(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
224 |
SEAICE_ADVDIFF |
I AREA(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
231 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
232 |
SEAICE_ADVDIFF |
& AREA(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
371 |
SEAICE_ADVDIFF |
& / MAX(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
373 |
SEAICE_ADVDIFF |
AREA(I,J,bi,bj) = MIN(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
385 |
SEAICE_ADVDIFF |
IF ( AREA(I,J,bi,bj) .GT. 0.15 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
387 |
SEAICE_ADVDIFF |
& AREA(I,J,bi,bj) * SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_diagnostics_state.F |
61 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( AREA, 'SIarea ', 0, 1, 0, 1,1, myThid ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
90 |
SEAICE_DIAGNOSTICS_STATE |
I TICE, AREA, 1. _d 0, 1, 'SItices ', |
|
./pkg/seaice/seaice_dynsolver.F |
117 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
125 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
215 |
SEAICE_DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_dynsolver.F |
65 |
SEAICE_DYNSOLVER |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_growth.F |
1066 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=max(0. _d 0 , min( 1. _d 0, |
|
./pkg/seaice/seaice_growth.F |
1067 |
SEAICE_GROWTH |
& AREA(I,J,bi,bj)+d_AREAbyATM(I,J) ) ) |
|
./pkg/seaice/seaice_growth.F |
1069 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1081 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1234 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MIN(AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1246 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MIN(ONE,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1258 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = MAX(ZERO,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1260 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1331 |
SEAICE_GROWTH |
IF ( AREA(I,J,bi,bj) .GT. 0.15 ) THEN |
|
./pkg/seaice/seaice_growth.F |
1332 |
SEAICE_GROWTH |
IF ( AREA(i,j,bi,bj) .LT. AREApreTH(i,j) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1335 |
SEAICE_GROWTH |
& *AREA(i,j,bi,bj)/AREApreTH(i,j) |
|
./pkg/seaice/seaice_growth.F |
1339 |
SEAICE_GROWTH |
& + AREA(i,j,bi,bj) * SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1358 |
SEAICE_GROWTH |
& (AREA(i,j,bi,bj).GT.0.15) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1361 |
SEAICE_GROWTH |
ELSEIF (AREA(i,j,bi,bj).LE.0.15) THEN |
|
./pkg/seaice/seaice_growth.F |
1367 |
SEAICE_GROWTH |
IceAge(i,j,bi,bj) = tmpscal2*AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
346 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
381 |
SEAICE_GROWTH |
& (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
393 |
SEAICE_GROWTH |
& AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),areaMin) |
|
./pkg/seaice/seaice_growth.F |
404 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MIN(AREA(I,J,bi,bj),areaMax) |
|
./pkg/seaice/seaice_growth.F |
419 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1036 |
SEAICE_GROWTH_IF |
& AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1039 |
SEAICE_GROWTH_IF |
& AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1121 |
SEAICE_GROWTH_IF |
& AREA(i,j,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
305 |
SEAICE_GROWTH_IF |
AREANm1(I,J,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
760 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = AREANm1(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
781 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = MIN(1. _d 0,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
782 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = MAX(0. _d 0,AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
799 |
SEAICE_GROWTH_IF |
IF (AREA(I,J,bi,bj) .GT. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
801 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
803 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
822 |
SEAICE_GROWTH_IF |
& AREA(I,J,bi,bj) .LE. 0.0) THEN |
|
./pkg/seaice/seaice_growth_if.F |
824 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
998 |
SEAICE_GROWTH_IF |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
341 |
SEAICE_INIT_VARIA |
IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE |
|
./pkg/seaice/seaice_init_varia.F |
349 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( AreaFile, ' ', AREA, 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
350 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(AREA,myThid) |
|
./pkg/seaice/seaice_init_varia.F |
355 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
356 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj) = MIN(AREA(i,j,bi,bj),ONE) |
|
./pkg/seaice/seaice_init_varia.F |
357 |
SEAICE_INIT_VARIA |
IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
358 |
SEAICE_INIT_VARIA |
IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO |
|
./pkg/seaice/seaice_init_varia.F |
369 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
426 |
SEAICE_INIT_VARIA |
CALL OBCS_COPY_TRACER( AREA(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
452 |
SEAICE_INIT_VARIA |
& *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj))) |
|
./pkg/seaice/seaice_init_varia.F |
70 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_map_thsice.F |
47 |
SEAICE_MAP_THSICE |
AREA(i,j,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/seaice/seaice_model.F |
233 |
SEAICE_MODEL |
_EXCH_XY_RL( AREA, myThid ) |
|
./pkg/seaice/seaice_model.F |
263 |
SEAICE_MODEL |
CALL OBCS_COPY_TRACER( AREA(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_model.F |
97 |
SEAICE_MODEL |
AREA(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_monitor.F |
115 |
SEAICE_MONITOR |
CALL MON_WRITESTATS_RL( 1, AREA, '_area', |
|
./pkg/seaice/seaice_ocean_stress.F |
116 |
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 |
118 |
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 |
64 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
74 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_output.F |
175 |
SEAICE_OUTPUT |
& AREAtave(i,j,bi,bj) +AREA(i,j,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_read_pickup.F |
148 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, AREA , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
190 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siAREA ', AREA, |
|
./pkg/seaice/seaice_read_pickup.F |
250 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL( AREA, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
92 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, AREA , nj, myIter, myThid ) |
|
./model/src/external_forcing_surf.F |
86 |
EXTERNAL_FORCING_SURF |
& -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj)) |
|
./model/src/external_forcing_surf.F |
91 |
EXTERNAL_FORCING_SURF |
& -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj)) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
86 |
EXTERNAL_FORCING_SURF |
& -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj)) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
91 |
EXTERNAL_FORCING_SURF |
& -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj)) |
|
./pkg/autodiff/autodiff_restore.F |
446 |
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 |
178 |
CFC_FIELDS_LOAD |
FIce(I,J,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/dic/dic_fields_load.F |
211 |
DIC_FIELDS_LOAD |
FIce(i,j,bi,bj) = AREA(i,j,bi,bj) |