| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_viscosities.F |
189 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj)*ep |
|
./pkg/seaice/seaice_calc_viscosities.F |
191 |
SEAICE_CALC_VISCOSITIES |
eta(I,J,bi,bj) = MIN(eta(I,J,bi,bj),etaMax) |
|
./pkg/seaice/seaice_calc_viscosities.F |
76 |
SEAICE_CALC_VISCOSITIES |
_RL etaMax, etaDen |
|
./pkg/seaice/seaice_itd_remap.F |
245 |
SEAICE_ITD_REMAP |
etaMax = MIN(dh0,hR(i,j,k)) - hL(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
246 |
SEAICE_ITD_REMAP |
IF ( etaMax 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
248 |
SEAICE_ITD_REMAP |
da0 = g0(i,j,k)*etaMax + g1(i,j,k)*etaMax*etaMax*0.5 _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
300 |
SEAICE_ITD_REMAP |
etaMax = MIN(hLimitNew(i,j,k), hR(i,j,k)) - hL(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
305 |
SEAICE_ITD_REMAP |
etaMax = MIN(hLimit(k), hR(i,j,k+1)) - hL(i,j,k+1) |
|
./pkg/seaice/seaice_itd_remap.F |
310 |
SEAICE_ITD_REMAP |
IF ( etaMax .GT. etaMin ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
311 |
SEAICE_ITD_REMAP |
etam = etaMax-etaMin |
|
./pkg/seaice/seaice_itd_remap.F |
312 |
SEAICE_ITD_REMAP |
etap = etaMax+etaMin |
|
./pkg/seaice/seaice_itd_remap.F |
319 |
SEAICE_ITD_REMAP |
& + g1(i,j,kDonor)*(etaMax**3-etaMin**3)*third |
|
./pkg/seaice/seaice_itd_remap.F |
78 |
SEAICE_ITD_REMAP |
_RL etaMin, etaMax, etam, etap, eta2 |