| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_seaice.F |
114 |
OBCS_APPLY_SEAICE |
HEFF (Iobc,j,bi,bj) = OBWh (j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
139 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc-1,bi,bj)+HEFF(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
140 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
141 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
178 |
OBCS_APPLY_SEAICE |
& (HEFF(i,Jobc+1,bi,bj)+HEFF(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
179 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
180 |
OBCS_APPLY_SEAICE |
HEFF(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
217 |
OBCS_APPLY_SEAICE |
& (HEFF(Iobc-1,j,bi,bj)+HEFF(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
218 |
OBCS_APPLY_SEAICE |
HEFF(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
219 |
OBCS_APPLY_SEAICE |
HEFF(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
256 |
OBCS_APPLY_SEAICE |
& (HEFF(Iobc+1,j,bi,bj)+HEFF(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
257 |
OBCS_APPLY_SEAICE |
HEFF(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
258 |
OBCS_APPLY_SEAICE |
HEFF(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
63 |
OBCS_APPLY_SEAICE |
HEFF (i,Jobc,bi,bj) = OBNh (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
80 |
OBCS_APPLY_SEAICE |
HEFF (i,Jobc,bi,bj) = OBSh (i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
97 |
OBCS_APPLY_SEAICE |
HEFF (Iobc,j,bi,bj) = OBEh (j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
227 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
229 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBNh(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
254 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
256 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBSh(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
281 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
283 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBEh(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
308 |
OBCS_SEAICE_SPONGE_H |
HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
310 |
OBCS_SEAICE_SPONGE_H |
& * ( HEFF(i,j,bi,bj) - OBWh(j,bi,bj) ) |
|
./pkg/seaice/SEAICE.h |
66 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE |
|
./pkg/seaice/SEAICE.h |
78 |
NO PROCEDURE |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/cost_ice_test.F |
102 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * HEFF(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
152 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
184 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 2090. _d 0 * 910. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
185 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 - |
|
./pkg/seaice/dynsolver.F |
108 |
DYNSOLVER |
& HEFF(i,j ,bi,bj) + HEFF(i-1,j ,bi,bj) |
|
./pkg/seaice/dynsolver.F |
109 |
DYNSOLVER |
& +HEFF(i,j-1,bi,bj) + HEFF(i-1,j-1,bi,bj) ) |
|
./pkg/seaice/dynsolver.F |
225 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
197 |
SEAICE_ADVDIFF |
hEffNm1(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
218 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
225 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HEFF(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
232 |
SEAICE_ADVDIFF |
I HEFF(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
240 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
241 |
SEAICE_ADVDIFF |
& HEFF(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
248 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
467 |
SEAICE_ADVDIFF |
if (HEFF(I,J,bi,bj).GE.siEps) then |
|
./pkg/seaice/seaice_advdiff.F |
468 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
483 |
SEAICE_ADVDIFF |
& +tmpscal2*HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
486 |
SEAICE_ADVDIFF |
if (HEFF(I,J,bi,bj).GE.siEps) then |
|
./pkg/seaice/seaice_advdiff.F |
490 |
SEAICE_ADVDIFF |
& +HEFF(I,J,bi,bj)*tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
495 |
SEAICE_ADVDIFF |
tmpscal1= ( HEFF(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
560 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
575 |
SEAICE_ADVDIFF |
U HEFF(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
585 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
137 |
SEAICE_BOTTOMDRAG_COEFFS |
hActual = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
20 |
SEAICE_BOTTOMDRAG_COEFFS |
I HEFF, AREA, |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
66 |
SEAICE_BOTTOMDRAG_COEFFS |
_RL HEFF(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
106 |
SEAICE_CALC_ICE_STRENGTH |
IF ( (HEFF(i,j,bi,bj).LE.SEAICEpresH0).AND. |
|
./pkg/seaice/seaice_calc_ice_strength.F |
108 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
110 |
SEAICE_CALC_ICE_STRENGTH |
ELSEIF ( (HEFF(i,j,bi,bj).GT.SEAICEpresH0).AND. |
|
./pkg/seaice/seaice_calc_ice_strength.F |
112 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
115 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal2=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_residual.F |
92 |
SEAICE_CALC_RESIDUAL |
I HEFF, AREA, |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
54 |
SEAICE_COST_ACCUMULATE_MEAN |
& + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
59 |
SEAICE_COST_ACCUMULATE_MEAN |
& + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
115 |
SEAICE_DIAGNOSTICS_STATE |
I SItracer(1-OLx,1-OLy,1,1,iTracer), HEFF, |
|
./pkg/seaice/seaice_diagnostics_state.F |
270 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
289 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
67 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( HEFF, 'SIheff ', 0, 1, 0, 1,1, myThid ) |
|
./pkg/seaice/seaice_dynsolver.F |
116 |
SEAICE_DYNSOLVER |
seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
118 |
SEAICE_DYNSOLVER |
& HEFF(i,j,bi,bj) + HEFF(i-1,j ,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
120 |
SEAICE_DYNSOLVER |
& HEFF(i,j,bi,bj) + HEFF(i ,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
78 |
SEAICE_DYNSOLVER |
PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
755 |
SEAICE_EVP |
I HEFF, AREA, |
|
./pkg/seaice/seaice_freedrift.F |
89 |
SEAICE_FREEDRIFT |
mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1137 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) * HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1264 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublim(I,J),HEFF(I,J,bi,bj)),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1266 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1333 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE(I,J)=MAX(r_QbyOCN(i,j), -HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1335 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj) + d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
1337 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,2)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1440 |
SEAICE_GROWTH |
tmpscal2 = MAX(-HEFF(I,J,bi,bj),r_QbyATM_cover(I,J)+ |
|
./pkg/seaice/seaice_growth.F |
1447 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1450 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,3)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1595 |
SEAICE_GROWTH |
tmpscal4 = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1665 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1677 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,4)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1717 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)*recip_rhoConst |
|
./pkg/seaice/seaice_growth.F |
1718 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, tmpscal0 - HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1720 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)+d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
1782 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFFITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1835 |
SEAICE_GROWTH |
tmpscal0=HEFF(I,J,bi,bj) - d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1845 |
SEAICE_GROWTH |
IF ( (HEFF(i,j,bi,bj).GT.0. _d 0).OR. |
|
./pkg/seaice/seaice_growth.F |
1875 |
SEAICE_GROWTH |
HEFFITD(I,J,1,bi,bj)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1937 |
SEAICE_GROWTH |
& ( HEFF(I,J,bi,bj) - HEFFpreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1958 |
SEAICE_GROWTH |
if (HEFF(I,J,bi,bj).GT.siEps) then |
|
./pkg/seaice/seaice_growth.F |
1960 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) / HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2056 |
SEAICE_GROWTH |
tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
2145 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,5)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2458 |
SEAICE_GROWTH |
tmpscal1 = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
2462 |
SEAICE_GROWTH |
tmpscal2 = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
513 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
518 |
SEAICE_GROWTH |
DIAGarrayC(I,J) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
522 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,1)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
577 |
SEAICE_GROWTH |
I SItracer(1-OLx,1-OLy,bi,bj,iTr),HEFF(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
257 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
474 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
505 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( HeffFile, ' ', HEFF, 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
506 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(HEFF,myThid) |
|
./pkg/seaice/seaice_init_varia.F |
511 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj) = MAX(HEFF(i,j,bi,bj),ZERO) |
|
./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 |
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 |
577 |
SEAICE_INIT_VARIA |
HEFFITD(I,J,1,bi,bj) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
593 |
SEAICE_INIT_VARIA |
HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)*salt(i,j,kSurface,bi,bj)* |
|
./pkg/seaice/seaice_init_varia.F |
676 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = HEFF(i,j,bi,bj)*(1.0 _d 11) |
|
./pkg/seaice/seaice_init_varia.F |
678 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = SEAICE_strength*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
688 |
SEAICE_INIT_VARIA |
sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_itd_pickup.F |
126 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,1,bi,bj) = HEFF(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_sum.F |
84 |
SEAICE_ITD_SUM |
HEFF (i,j,bi,bj)=HEFFITD (i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
93 |
SEAICE_ITD_SUM |
HEFF (i,j,bi,bj) = HEFF (i,j,bi,bj) + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
214 |
SEAICE_KRYLOV |
I HEFF, AREA, |
|
./pkg/seaice/seaice_lsr.F |
344 |
SEAICE_LSR |
I HEFF, AREA, |
|
./pkg/seaice/seaice_map_thsice.F |
61 |
SEAICE_MAP_THSICE |
HEFF(i,j,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/seaice/seaice_model.F |
224 |
SEAICE_MODEL |
_EXCH_XY_RL( HEFF, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
120 |
SEAICE_MONITOR |
CALL MON_WRITESTATS_RL( 1, HEFF, '_heff', |
|
./pkg/seaice/seaice_output.F |
211 |
SEAICE_OUTPUT |
& HEFFtave(i,j,bi,bj) +HEFF(i,j,bi,bj)*deltaTClock |
|
./pkg/seaice/seaice_read_pickup.F |
161 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HEFF , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
219 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siHEFF ', HEFF, |
|
./pkg/seaice/seaice_read_pickup.F |
322 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL( HEFF, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
149 |
SEAICE_REG_RIDGE |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + d_HEFFbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
186 |
SEAICE_REG_RIDGE |
d_HEFFbyNEG(I,J,bi,bj)=MAX(-HEFF(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
187 |
SEAICE_REG_RIDGE |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+d_HEFFbyNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
206 |
SEAICE_REG_RIDGE |
IF (HEFF(I,J,bi,bj).LE.siEps) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
221 |
SEAICE_REG_RIDGE |
IF (HEFF(I,J,bi,bj).LE.siEps) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
222 |
SEAICE_REG_RIDGE |
tmpscal1=-HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
228 |
SEAICE_REG_RIDGE |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_reg_ridge.F |
254 |
SEAICE_REG_RIDGE |
IF ((HEFF(i,j,bi,bj).EQ.0. _d 0).AND. |
|
./pkg/seaice/seaice_reg_ridge.F |
285 |
SEAICE_REG_RIDGE |
IF ((HEFF(i,j,bi,bj).GT.0).OR.(HSNOW(i,j,bi,bj).GT.0)) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
302 |
SEAICE_REG_RIDGE |
& (HEFF(I,J,bi,bj) .EQ. 0.0) ) THEN |
|
./pkg/seaice/seaice_write_pickup.F |
123 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HEFF , nj, myIter, myThid ) |
|
./pkg/autodiff/autodiff_restore.F |
461 |
AUTODIFF_RESTORE |
HEFF(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
567 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,2) = HEFF(I,J,bi,bj) |