File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_k3d.F |
1011 |
GMREDI_K3D |
denominator = uXiyInt(i,j) - vXixInt(i,j) |
./pkg/gmredi/gmredi_k3d.F |
1019 |
GMREDI_K3D |
IF (denominator.GT.small) THEN |
./pkg/gmredi/gmredi_k3d.F |
1020 |
GMREDI_K3D |
Renorm(i,j) = ABS(numerator/denominator) |
./pkg/gmredi/gmredi_k3d.F |
167 |
GMREDI_K3D |
_RL numerator, denominator |
./pkg/seaice/seaice_growth.F |
144 |
SEAICE_GROWTH |
_RL denominator, recip_denominator, areaPDFfac |
./pkg/seaice/seaice_growth.F |
370 |
SEAICE_GROWTH |
denominator = 0. _d 0 |
./pkg/seaice/seaice_growth.F |
372 |
SEAICE_GROWTH |
denominator = denominator + IT * SEAICE_pdf(IT) |
./pkg/seaice/seaice_growth.F |
374 |
SEAICE_GROWTH |
denominator = (2.0 _d 0 * denominator) - 1.0 _d 0 |
./pkg/seaice/seaice_growth.F |
375 |
SEAICE_GROWTH |
recip_denominator = 1. _d 0 / denominator |
./pkg/seaice/seaice_growth.F |
379 |
SEAICE_GROWTH |
areaPDFfac = denominator * recip_multDim |