| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
69 |
NO PROCEDURE |
& opnWtrFrac, fw2ObyRidge |
|
./pkg/seaice/SEAICE.h |
74 |
NO PROCEDURE |
_RL opnWtrFrac (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_advdiff.F |
299 |
SEAICE_ADVDIFF |
I uTrans, vTrans, opnWtrFrac(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./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 |
315 |
SEAICE_ADVDIFF |
& opnWtrFrac(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
635 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, opnWtrFrac, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
644 |
SEAICE_ADVDIFF |
U opnWtrFrac(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_calc_ice_strength.F |
95 |
SEAICE_CALC_ICE_STRENGTH |
opnWtrFrac(i,j,bi,bj) = 1. _d 0 - AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
191 |
SEAICE_DO_RIDGING |
divAdv = (1. _d 0-netArea(i,j)-opnWtrFrac(i,j,bi,bj)) |
|
./pkg/seaice/seaice_do_ridging.F |
230 |
SEAICE_DO_RIDGING |
IF ( tmp .GT. opnWtrFrac(i,j,bi,bj) ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
231 |
SEAICE_DO_RIDGING |
tmpFac = opnWtrFrac(i,j,bi,bj)/tmp |
|
./pkg/seaice/seaice_do_ridging.F |
260 |
SEAICE_DO_RIDGING |
opnWtrFrac(i,j,bi,bj) = opnWtrFrac(i,j,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
265 |
SEAICE_DO_RIDGING |
opnWtrFrac(i,j,bi,bj) = MAX( 0. _d 0, opnWtrFrac(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_do_ridging.F |
411 |
SEAICE_DO_RIDGING |
tmp = netArea(i,j)+opnWtrFrac(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
579 |
SEAICE_INIT_VARIA |
opnWtrFrac(I,J,bi,bj) = 1. _d 0 - AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
120 |
SEAICE_PREPARE_RIDGING |
IF ( opnWtrFrac(i,j,bi,bj) .GT. SEAICE_area_floor ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
121 |
SEAICE_PREPARE_RIDGING |
& gSum(i,j,0) = opnWtrFrac(i,j,bi,bj) |