| 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 |
228 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
212 |
LSR |
ZETA(I,J,bi,bj) = ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
229 |
SEAICE_ADVDIFF |
I HEFF(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
237 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./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 |
303 |
SEAICE_ADVDIFF |
I opnWtrFrac(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
311 |
SEAICE_ADVDIFF |
opnWtrFrac(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
339 |
SEAICE_ADVDIFF |
I HSNOW(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
347 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
382 |
SEAICE_ADVDIFF |
I HSALT(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
390 |
SEAICE_ADVDIFF |
HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
409 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
419 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
448 |
SEAICE_ADVDIFF |
I SItrExt(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
456 |
SEAICE_ADVDIFF |
SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
491 |
SEAICE_ADVDIFF |
& *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce |
|
./pkg/seaice/seaice_advdiff.F |
493 |
SEAICE_ADVDIFF |
& + SItrBucket(i,j,bi,bj,iTr) )*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
495 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./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 |
526 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
563 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, hEff, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
570 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
606 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, area, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
613 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
632 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, opnWtrFrac, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
639 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
664 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HSNOW, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
671 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
708 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HSALT, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
715 |
SEAICE_ADVDIFF |
I fldNm1(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_calc_ice_strength.F |
118 |
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 |
173 |
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 |
143 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
273 |
SEAICE_DO_RIDGING |
& .AND. HEFFM(i,j,bi,bj) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
410 |
SEAICE_DO_RIDGING |
IF ( HEFFM(i,j,bi,bj) .GT. 0. _d 0 .AND. areaTooLarge ) THEN |
|
./pkg/seaice/seaice_dynsolver.F |
132 |
SEAICE_DYNSOLVER |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
140 |
SEAICE_DYNSOLVER |
mask_vice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
77 |
SEAICE_DYNSOLVER |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1585 |
SEAICE_GROWTH |
& -tmpscal4*facOpenMelt)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1960 |
SEAICE_GROWTH |
tmpscal2 = tmpscal1 * tmpscal3 * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1992 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,J,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2022 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2042 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2052 |
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_init_varia.F |
381 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j ,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
383 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i ,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
444 |
SEAICE_INIT_VARIA |
CALL PLOT_FIELD_XYRL( HEFFM , 'Current HEFFM ' , |
|
./pkg/seaice/seaice_init_varia.F |
469 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
65 |
SEAICE_INIT_VARIA |
HEFFM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
678 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
70 |
SEAICE_INIT_VARIA |
HEFFM(i,j,bi,bj)= 1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
72 |
SEAICE_INIT_VARIA |
& HEFFM(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
79 |
SEAICE_INIT_VARIA |
mask_uice=HEFFM(i,j, bi,bj)+HEFFM(i-1,j-1,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
80 |
SEAICE_INIT_VARIA |
& +HEFFM(i,j-1,bi,bj)+HEFFM(i-1,j, bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
300 |
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 |