Changeset 235 for trunk/MESOSCALE/LMD_MM_MARS/SRC

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

Files:

• PREP_MARS/compile_and_exec (modified) (1 diff)
• PREP_MARS/compile_ifort (modified) (1 diff)
• PREP_MARS/compile_pgf (moved) (moved from trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/compile)
• WRFV2/mars_lmd/libf/phymars/inifis.F (moved) (moved from trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/phymars/meso_inifis.F) (2 diffs)
• WRFV2/mars_lmd/libf/phymars/meso_testphys1d.F (deleted)
• WRFV2/mars_lmd/libf/phymars/physiq.F (moved) (moved from trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/mars_lmd/libf/phymars/meso_physiq.F) (4 diffs)
• WRFV2/mars_lmd/libf/phymars/testphys1d.F (added)

trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/compile_and_exec

@@ -8 +8 @@
 echo 1 | create_readmeteo.exe 
 readmeteo.exe < readmeteo.def 
-

trunk/MESOSCALE/LMD_MM_MARS/SRC/PREP_MARS/compile_ifort

@@ -18 +18 @@
 \rm *.o 2> /dev/null
 
-echo I assume input_diagfi is correctly linked
-echo I assume WPSFEED folder exists or is linked
-
-echo 1 | create_readmeteo.exe
-readmeteo.exe < readmeteo.def
+#echo I assume input_diagfi is correctly linked
+#echo I assume WPSFEED folder exists or is linked
+#echo 1 | create_readmeteo.exe
+#readmeteo.exe < readmeteo.def

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