Changeset 3918 for TOOLS/MOZAIC/src/MOZAIC/modeles.f90

Timestamp:

06/15/18 14:06:03 (6 years ago)

Author:

omamce

Message:

O.M. : change espfrac from fortran parameter to parameter read in run.def

File:

• TOOLS/MOZAIC/src/MOZAIC/modeles.f90 (modified) (1 diff)

TOOLS/MOZAIC/src/MOZAIC/modeles.f90

@@ -16 +16 @@
    REAL (kind=rl), PARAMETER :: epsd   = EPSILON (1.0_rd) !< Quadruple precision epsilon
    REAL (kind=rl), PARAMETER :: epsd10 = 10.0_rd * epsd   !< Quadruple precision epsilon * 10
-   REAL (kind=rl), PARAMETER :: epsfrac = 1.0E-10_rl  !< Min fraction of sea acceptable
+   !!
+
    !!