| 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 |
476 |
SEAICE_FGMRES |
_RL r0, gam, epsmac, eps1 |
|
./pkg/seaice/seaice_fgmres.F |
484 |
SEAICE_FGMRES |
& hh, c, s, rs, t, ro, r0, gam, epsmac, eps1 |
|
./pkg/seaice/seaice_fgmres.F |
529 |
SEAICE_FGMRES |
if (its .eq. 0) eps1=eps |
|
./pkg/seaice/seaice_fgmres.F |
680 |
SEAICE_FGMRES |
if (i .lt. im .and. (ro .gt. eps1)) goto 4 |
|
./pkg/seaice/seaice_fgmres.F |
712 |
SEAICE_FGMRES |
if (ro .le. eps1 .or. its .ge. maxits) goto 999 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
400 |
SHELFICE_THERMODYNAMICS |
eps1 = rUnit2mass*HeatCapacity_Cp |
|
./pkg/shelfice/shelfice_thermodynamics.F |
423 |
SHELFICE_THERMODYNAMICS |
aqe = a0 *(eps1+eps3-eps8) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
427 |
SHELFICE_THERMODYNAMICS |
bqe = eps1*eps6 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
443 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: eps1 = ', eps1 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
87 |
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 |