Changeset 124 for trunk/SOURCES/Ant40_files/lect-anteis_mod.f90

Timestamp:

07/06/17 11:55:54 (7 years ago)

Author:

dumas

Message:

New flag ibmelt_inv in param_list.dat : 0 standard case, 1 bmelt inversion (with igrdline=1) | bmelt-seuil-profondeur has been updated for bmelt inversion.

File:

• trunk/SOURCES/Ant40_files/lect-anteis_mod.f90 (modified) (1 diff)

trunk/SOURCES/Ant40_files/lect-anteis_mod.f90

@@ -228 +228 @@
     do J=1,NY
        do I=1,NX
-          if (((BSOC(I,J)+H(I,J)*RO/ROW -SEALEVEL).LT.0.).and.(H(I,J).gt.1.E-3)) then
+          if ((BSOC(I,J)+H(I,J)*RO/ROW -SEALEVEL).LT.0.) then
              FLOT(I,J)=.TRUE.
           else