Changeset 235 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Timestamp:

Jul 20, 2011, 3:07:02 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: corrected runmeso and gcm initialization so that it could be used on GNOME ifort cluster and virtually everywhere. changed choice numbering and added choices to initialize but not execute (good for job submission). Also corrected what was broken in the two previous commits on the version of the mesoscale model with old physics

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/phymars

Files:

• inifis.F (moved) (moved from trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/phymars/meso_inifis.F) (2 diffs)
• meso_testphys1d.F (deleted)
• physiq.F (moved) (moved from trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/phymars/meso_physiq.F) (4 diffs)
• testphys1d.F (added)

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

@@ -1 @@
-      SUBROUTINE meso_inifis(ngrid,nlayer,nq,
-     $           wdt,
+      SUBROUTINE inifis(ngrid,nlayer,
      $           wday_ini,wdaysec,
-     $           wappel_phys,wecri_phys,
+     $           wappel_phys,
      $           plat,plon,parea,
      $           prad,pg,pr,pcpp,
+     $           nq, wdt,
      $           womeg,wmugaz,
      $           wyear_day,wperiheli,waphelie,wperi_day,wobliquit, 
@@ -528 +528 @@
         dtphys=wdt*float(wappel_phys)
         print*,'Physical timestep (s) ',dtphys
-        ecri_phys=wecri_phys
+        ecri_phys=8.e18  !! a dummy low frequency
         print*,'Physical frequency for writing ',ecri_phys
 c

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

@@ -1 @@
-      SUBROUTINE meso_physiq(ngrid,nlayer,nq,
+      SUBROUTINE physiq(ngrid,nlayer,nq,
      $            firstcall,lastcall,
-     $            wday_ini,
      $            pday,ptime,ptimestep,
      $            pplev,pplay,pphi,
@@ -8 +7 @@
      $            pdu,pdv,pdt,pdq,pdpsrf,tracerdyn,
      $            wtsurf,wtsoil,wemis,wq2,wqsurf,wco2ice,
-     $            wecritphys,
+     $            wday_ini,
      $            output_tab2d, output_tab3d,
      $            flag_LES)
-
 
 
@@ -174 +172 @@
       REAL wqsurf(ngridmx,nqmx)       
       REAL wq2(ngridmx,nlayermx+1) 
-      REAL wecritphys
       REAL output_tab2d(ngridmx,n2d)
       REAL output_tab3d(ngridmx,nlayer,n3d)
@@ -395 +392 @@
       iphysiq=ptimestep
 c
-      ecritphy=wecritphys
+      ecritphy=8.e18  !! a dummy low frequency
       PRINT*,'Write LMD physics each:',ecritphy,' seconds'
               !!PRINT*,ecri_phys