Changeset 1858 for trunk/MESOSCALE/LMDZ.MARS/libf_gcm/dyn3d

Timestamp:

Dec 15, 2017, 12:55:40 PM (7 years ago)

Author:

aslmd

Message:

added gfortran support for old GCM. commented part of ch.f which pose problems (not used anyway in low-atmosphere GCM for mesoscale applications. added an adapted makegcm_gnu. corrected a problem of condition in newstart picked by picky gfortran.

File:

• trunk/MESOSCALE/LMDZ.MARS/libf_gcm/dyn3d/newstart.F (modified) (1 diff)

trunk/MESOSCALE/LMDZ.MARS/libf_gcm/dyn3d/newstart.F

@@ -840 +840 @@
 c=======================================================================
 
-      if (flagps0.eq..false.) then
+      if (flagps0.eqv..false.) then
         r = 1000.*8.31/mugaz