| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_seaice.F |
109 |
OBCS_APPLY_SEAICE |
& (HEFF(I,J_obc+1,bi,bj)+HEFF(I,J_obc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
110 |
OBCS_APPLY_SEAICE |
HEFF(I,J_obc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
111 |
OBCS_APPLY_SEAICE |
HEFF(I,J_obc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
146 |
OBCS_APPLY_SEAICE |
& HEFF(I,J,bi,bj) = OBEh (J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
160 |
OBCS_APPLY_SEAICE |
& (HEFF(I_obc-1,J,bi,bj)+HEFF(I_obc-2,J,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
161 |
OBCS_APPLY_SEAICE |
HEFF(I_obc-1,J,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
162 |
OBCS_APPLY_SEAICE |
HEFF(I_obc-2,J,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
197 |
OBCS_APPLY_SEAICE |
& HEFF(I,J,bi,bj) = OBWh (J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
211 |
OBCS_APPLY_SEAICE |
& (HEFF(I_obc+1,J,bi,bj)+HEFF(I_obc+2,J,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
212 |
OBCS_APPLY_SEAICE |
HEFF(I_obc+1,J,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
213 |
OBCS_APPLY_SEAICE |
HEFF(I_obc+2,J,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
44 |
OBCS_APPLY_SEAICE |
& HEFF(I,J,bi,bj) = OBNh (I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
58 |
OBCS_APPLY_SEAICE |
& (HEFF(I,J_obc-1,bi,bj)+HEFF(I,J_obc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
59 |
OBCS_APPLY_SEAICE |
HEFF(I,J_obc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
60 |
OBCS_APPLY_SEAICE |
HEFF(I,J_obc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
95 |
OBCS_APPLY_SEAICE |
& HEFF(I,J,bi,bj) = OBSh (I,bi,bj) |
|
./pkg/seaice/SEAICE.h |
64 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE |
|
./pkg/seaice/SEAICE.h |
66 |
NO PROCEDURE |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/cost_ice_test.F |
101 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * HEFF(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
151 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
183 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 2090. _d 0 * 910. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
184 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 - |
|
./pkg/seaice/dynsolver.F |
101 |
DYNSOLVER |
& HEFF(i,j ,bi,bj) + HEFF(i-1,j ,bi,bj) |
|
./pkg/seaice/dynsolver.F |
102 |
DYNSOLVER |
& +HEFF(i,j-1,bi,bj) + HEFF(i-1,j-1,bi,bj) ) |
|
./pkg/seaice/dynsolver.F |
218 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
166 |
SEAICE_ADVDIFF |
HEFFNM1(i,j,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
192 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HEFF(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
199 |
SEAICE_ADVDIFF |
I HEFF(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
206 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
207 |
SEAICE_ADVDIFF |
& HEFF(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
55 |
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 |
60 |
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 |
190 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
209 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
62 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( HEFF, 'SIheff ', 0, 1, 0, 1,1, myThid ) |
|
./pkg/seaice/seaice_dynsolver.F |
101 |
SEAICE_DYNSOLVER |
seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
103 |
SEAICE_DYNSOLVER |
& HEFF(i,j,bi,bj) + HEFF(i-1,j ,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
105 |
SEAICE_DYNSOLVER |
& HEFF(i,j,bi,bj) + HEFF(i ,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_dynsolver.F |
214 |
SEAICE_DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
64 |
SEAICE_DYNSOLVER |
PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
392 |
SEAICE_GROWTH |
hEffOld(I,J) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
394 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = MAX(ZERO,HEFF(I,J,bi,bj)-availHeat(I,J)) |
|
./pkg/seaice/seaice_growth.F |
396 |
SEAICE_GROWTH |
YNEG(I,J,bi,bj) = hEffOld(I,J) - HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
511 |
SEAICE_GROWTH |
growthHEFF = -ONE*MIN(HEFF(I,J,bi,bj),growthNeg) |
|
./pkg/seaice/seaice_growth.F |
533 |
SEAICE_GROWTH |
& /(HEFF(I,J,bi,bj)+.00001 _d 0) |
|
./pkg/seaice/seaice_growth.F |
538 |
SEAICE_GROWTH |
& /(HEFF(I,J,bi,bj)+.00001 _d 0) |
|
./pkg/seaice/seaice_growth.F |
565 |
SEAICE_GROWTH |
growthHEFF = -ONE*MIN(HEFF(I,J,bi,bj),growthNeg) |
|
./pkg/seaice/seaice_growth.F |
567 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + growthHEFF |
|
./pkg/seaice/seaice_growth.F |
741 |
SEAICE_GROWTH |
& (HEFF(I,J,bi,bj)-saltWtrIce(I,J,bi,bj))/ |
|
./pkg/seaice/seaice_growth.F |
753 |
SEAICE_GROWTH |
IF ( HEFF(I,J,bi,bj) .EQ. 0.0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
844 |
SEAICE_GROWTH |
& ,HEFF(I,J,bi,bj)/.0001 _d 0) |
|
./pkg/seaice/seaice_growth.F |
870 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
872 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=MIN(MAX_HEFF,HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
884 |
SEAICE_GROWTH |
GHEFF(I,J) = (HEFF(I,J,bi,bj)-HEFFNm1(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
899 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)/1000. _d 0 |
|
./pkg/seaice/seaice_growth.F |
901 |
SEAICE_GROWTH |
GHEFF(I,J) = hDraft - MIN(hDraft,HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
902 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + GHEFF(I,J) |
|
./pkg/seaice/seaice_growth.F |
926 |
SEAICE_GROWTH |
sIceLoad(i,j,bi,bj) = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth_if.F |
1018 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj)/QI + |
|
./pkg/seaice/seaice_growth_if.F |
1033 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj)= HICE_ACTUAL(I,J) * |
|
./pkg/seaice/seaice_growth_if.F |
1040 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj)/QI + |
|
./pkg/seaice/seaice_growth_if.F |
1079 |
SEAICE_GROWTH_IF |
sIceLoad(i,j,bi,bj) = HEFF(I,J,bi,bj)* |
|
./pkg/seaice/seaice_growth_if.F |
1121 |
SEAICE_GROWTH_IF |
& HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
302 |
SEAICE_GROWTH_IF |
HEFFNm1(I,J,bi,bj) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
760 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = HEFFNm1(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
781 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = MAX(0. _d 0, HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
799 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
819 |
SEAICE_GROWTH_IF |
IF (HEFF(I,J,bi,bj) .LE. 0.0 .OR. |
|
./pkg/seaice/seaice_growth_if.F |
823 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
858 |
SEAICE_GROWTH_IF |
& HEFF(I,J,bi,bj) - HEFFNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
997 |
SEAICE_GROWTH_IF |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
314 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
324 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( HeffFile, ' ', HEFF, 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
325 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(HEFF,myThid) |
|
./pkg/seaice/seaice_init_varia.F |
330 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj) = MAX(HEFF(i,j,bi,bj),ZERO) |
|
./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 |
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 |
395 |
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 |
425 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = HEFF(i,j,bi,bj)*(1.0 _d 11) |
|
./pkg/seaice/seaice_init_varia.F |
427 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
437 |
SEAICE_INIT_VARIA |
sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_init_varia.F |
69 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_map_thsice.F |
48 |
SEAICE_MAP_THSICE |
HEFF(i,j,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/seaice/seaice_model.F |
235 |
SEAICE_MODEL |
_EXCH_XY_RL( HEFF, myThid ) |
|
./pkg/seaice/seaice_model.F |
96 |
SEAICE_MODEL |
HEFF(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_monitor.F |
115 |
SEAICE_MONITOR |
CALL MON_WRITESTATS_RL( 1, HEFF, '_heff', |
|
./pkg/seaice/seaice_output.F |
173 |
SEAICE_OUTPUT |
& HEFFtave(i,j,bi,bj) +HEFF(i,j,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_read_pickup.F |
146 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HEFF , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
192 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siHEFF ', HEFF, |
|
./pkg/seaice/seaice_read_pickup.F |
249 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL( HEFF, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
97 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HEFF , nj, myIter, myThid ) |
|
./pkg/autodiff/autodiff_restore.F |
436 |
AUTODIFF_RESTORE |
HEFF(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
536 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,2) = HEFF(I,J,bi,bj) |