File |
Line number |
Procedure |
Code |
./pkg/icefront/icefront_thermodynamics.F |
103 |
ICEFRONT_THERMODYNAMICS |
eps1 = rUnit2mass*HeatCapacity_Cp*ICEFRONTheatTransCoeff(I,J) |
./pkg/icefront/icefront_thermodynamics.F |
108 |
ICEFRONT_THERMODYNAMICS |
aqe = a0 *(-eps1+eps3) |
./pkg/icefront/icefront_thermodynamics.F |
134 |
ICEFRONT_THERMODYNAMICS |
bqe = - eps1*eps6 -sLoc*a0*eps3 + eps3*eps7 + eps2 |
./pkg/icefront/icefront_thermodynamics.F |
147 |
ICEFRONT_THERMODYNAMICS |
& eps1 * ( thetaFreeze - tLoc ) / |
./pkg/icefront/icefront_thermodynamics.F |
70 |
ICEFRONT_THERMODYNAMICS |
_RL eps1, eps2, eps3, eps4, eps5, eps6, eps7 |
./pkg/seaice/seaice_fgmres.F |
345 |
SEAICE_FGMRES |
_RL r0, gam, eps1(MAX_NO_THREADS) |
./pkg/seaice/seaice_fgmres.F |
351 |
SEAICE_FGMRES |
COMMON /SEAICE_FMRES_LOC_RL/ hh, c, s, rs, eps1 |
./pkg/seaice/seaice_fgmres.F |
394 |
SEAICE_FGMRES |
if (its .eq. 0) eps1(myThid)=eps |
./pkg/seaice/seaice_fgmres.F |
543 |
SEAICE_FGMRES |
& .and. (ro .gt. eps1(myThid))) goto 4 |
./pkg/seaice/seaice_fgmres.F |
574 |
SEAICE_FGMRES |
if (ro .le. eps1(myThid) .or. its .ge. maxits) goto 999 |
./pkg/shelfice/shelfice_thermodynamics.F |
458 |
SHELFICE_THERMODYNAMICS |
eps1 = rUnit2mass*HeatCapacity_Cp |
./pkg/shelfice/shelfice_thermodynamics.F |
481 |
SHELFICE_THERMODYNAMICS |
aqe = a0 *(eps1+eps3-eps8) |
./pkg/shelfice/shelfice_thermodynamics.F |
485 |
SHELFICE_THERMODYNAMICS |
bqe = eps1*eps6 |
./pkg/shelfice/shelfice_thermodynamics.F |
501 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: eps1 = ', eps1 |
./pkg/shelfice/shelfice_thermodynamics.F |
96 |
SHELFICE_THERMODYNAMICS |
_RL eps1, eps2, eps3, eps3a, eps4, eps5, eps6, eps7, eps8 |
./lsopt/lsopt_top.F |
113 |
LSOPT_TOP |
eps1 = 1.0 |
./lsopt/lsopt_top.F |
564 |
LSOPT_TOP |
eps1 = gnorm / gnorm0 |
./lsopt/lsopt_top.F |
566 |
LSOPT_TOP |
if (eps1 .lt. epsg) then |
./lsopt/lsopt_top.F |
586 |
LSOPT_TOP |
epsg = eps1 |
./lsopt/lsopt_top.F |
81 |
LSOPT_TOP |
double precision r1, tmin, tmax, tact, gnorm, gnorm0, eps1 |