| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
37 |
NO PROCEDURE |
COMMON/ARRAY/HEFFM |
|
./pkg/seaice/SEAICE.h |
38 |
NO PROCEDURE |
_RL HEFFM (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
231 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
215 |
LSR |
ZETA(I,J,bi,bj) = ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./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 |
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 |
306 |
SEAICE_ADVDIFF |
I opnWtrFrac(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
314 |
SEAICE_ADVDIFF |
opnWtrFrac(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
342 |
SEAICE_ADVDIFF |
I HSNOW(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
350 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
385 |
SEAICE_ADVDIFF |
I HSALT(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
393 |
SEAICE_ADVDIFF |
HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
412 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
422 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
451 |
SEAICE_ADVDIFF |
I SItrExt(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
459 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
494 |
SEAICE_ADVDIFF |
& *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce |
|
./pkg/seaice/seaice_advdiff.F |
496 |
SEAICE_ADVDIFF |
& + SItrBucket(i,j,bi,bj,iTr) )*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
498 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./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 |
529 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
566 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, hEff, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
573 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
609 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, area, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
616 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
635 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, opnWtrFrac, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
642 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
667 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HSNOW, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
674 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
711 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HSALT, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
718 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_calc_ice_strength.F |
121 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(I,J,bi,bj)= PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
176 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(I,J,bi,bj)= PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
167 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
276 |
SEAICE_DO_RIDGING |
& .AND. HEFFM(i,j,bi,bj) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
413 |
SEAICE_DO_RIDGING |
IF ( HEFFM(i,j,bi,bj) .GT. 0. _d 0 .AND. areaTooLarge ) THEN |
|
./pkg/seaice/seaice_dynsolver.F |
150 |
SEAICE_DYNSOLVER |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
158 |
SEAICE_DYNSOLVER |
mask_vice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
82 |
SEAICE_DYNSOLVER |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1607 |
SEAICE_GROWTH |
& -tmpscal4*facOpenMelt)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1998 |
SEAICE_GROWTH |
tmpscal2 = tmpscal1 * tmpscal3 * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2030 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,J,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2060 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2080 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2090 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2118 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_init_varia.F |
386 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
388 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
449 |
SEAICE_INIT_VARIA |
CALL PLOT_FIELD_XYRL( HEFFM , 'Current HEFFM ' , |
|
./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 |
67 |
SEAICE_INIT_VARIA |
HEFFM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
682 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
708 |
SEAICE_INIT_VARIA |
tensileStrFac(i,j,bi,bj) = SEAICE_tensilFac*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
72 |
SEAICE_INIT_VARIA |
HEFFM(i,j,bi,bj)= 1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
74 |
SEAICE_INIT_VARIA |
& HEFFM(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
81 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j, bi,bj)+HEFFM(i-1,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
82 |
SEAICE_INIT_VARIA |
& +HEFFM(i,j-1,bi,bj)+HEFFM(i-1,j, bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
114 |
SEAICE_ITD_REMAP |
IF ( HEFFM(i,j,bi,bj) .NE. 0. _d 0 ) doRemapping(i,j) = .TRUE. |
|
./pkg/seaice/seaice_reg_ridge.F |
303 |
SEAICE_REG_RIDGE |
saltFluxAdjust(I,J,bi,bj) = - HEFFM(I,J,bi,bj) * |
|
./pkg/seaice/seaice_tracer_phys.F |
208 |
SEAICE_TRACER_PHYS |
& *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce |
|
./pkg/seaice/seaice_tracer_phys.F |
223 |
SEAICE_TRACER_PHYS |
& *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce |