Changeset 246 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Jul 29, 2011, 3:39:25 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: ifort is picky when using float() on real numbers (corrected in meso_inc_inifisini.F). also changes in r234 not impacted in testphys1d.F for newphys, now corrected.

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• meso_inc/meso_inc_inifisini.F (modified) (1 diff)
• testphys1d.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_inifisini.F

@@ -88 +88 @@
 c It must be set now, because it is used afterwards
 c*****************************************************
-        dtphys=wdt*float(ptimestep)
-        print*,'Physical timestep (s) ',dtphys
+        dtphys=wdt*ptimestep 
+        print*,'Physical timestep (s) ',dtphys, ptimestep

trunk/LMDZ.MARS/libf/phymars/testphys1d.F

@@ -431 +431 @@
 
 !Mars possible matter with dtphys in input and include!!!
-#ifdef MESOSCALE
-      CALL meso_inifis(1,llm,day0,daysec,dtphys,
-#else
       CALL inifis(1,llm,day0,daysec,dtphys,
-#endif
      .            lati,long,area,rad,g,r,cpp)
 c   Initialisation pour prendre en compte les vents en 1-D
@@ -618 +614 @@
 c       appel de la physique
 c       --------------------
-#ifdef MESOSCALE
-      CALL meso_physiq (1,llm,nqmx,
-#else
       CALL physiq (1,llm,nqmx,
-#endif
      ,     firstcall,lastcall,
      ,     day,time,dtphys,