Changeset 250 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd

Timestamp:

Aug 1, 2011, 12:27:23 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: corrected a problem of passing an integer as a real between module_lmd_driver and inifis. it was apparently not a problem but it is better to avoid this.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/phymars/inifis.F (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/phymars/inifis.F

@@ -87 +87 @@
       INTEGER ig,ierr
 
-      INTEGER wecri_phys, wappel_phys
+      INTEGER wecri_phys
+      REAL wappel_phys
  
       EXTERNAL iniorbit,orbite
@@ -526 +527 @@
 c Opportunity is taken to fill ecri_phys as well
 c*****************************************************
-        dtphys=wdt*float(wappel_phys)
+        dtphys=wdt*wappel_phys
         print*,'Physical timestep (s) ',dtphys
         ecri_phys=8.e18  !! a dummy low frequency