Changeset 155 for trunk/MESOSCALE/LMD_MM_MARS

Timestamp:

Jun 13, 2011, 1:53:37 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: changements cosmetiques (print etc...)

Location:

trunk/MESOSCALE/LMD_MM_MARS

Files:

• SIMU/runmeso (modified) (1 diff)
• SIMU/vert_level/levels (deleted)
• SIMU/vert_level/param.idl (modified) (1 diff)
• SIMU/vert_level/plot.ps (deleted)
• SRC/WRFV2/phys/module_lmd_driver.F (modified) (4 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SIMU/runmeso

@@ -27 +27 @@
 
 scenario=""
-scenario="storm"
+#scenario="storm"
 
 if [[ "${LMDMOD}" = "" ]]

trunk/MESOSCALE/LMD_MM_MARS/SIMU/vert_level/param.idl

@@ -37 +37 @@
 epsilon=100.
 elong_cos=2.*3.14/3.
-
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+nlev=61
+altmax=20. ;;100.
+epsilon=100.
+elong_cos=2.*3.14/3.
+elong_cos=20.

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F

@@ -328 +328 @@
 ! **** needed but hardcoded
 
-
-PRINT *, ips, ipe, jps, jpe
-PRINT *, ngrid
-
-
+          !PRINT *, ips, ipe, jps, jpe
+          !PRINT *, ngrid
 
 elaps = (float(itimestep)-1.)*dt  ! elapsed seconds of simulation
@@ -457 +454 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-print *, 'compute stats'
 IF (test2.EQ.0) THEN
+  print *, 'compute stats'
   print *, 'RESET'
    uave  = uave*0.
@@ -1273 +1270 @@
 !! display !
 !!---------!
-PRINT *, '** Mars ** Results from LMD physics'
-PRINT *, 'u non-zero tendencies'
+!PRINT *, '** Mars ** Results from LMD physics'
+!PRINT *, 'u non-zero tendencies'
 !!PRINT *, 'max',MAXVAL(RUBLTEN, MASK=RUBLTEN/=0.),&
 !!        ' at',MAXLOC(RUBLTEN, MASK=RUBLTEN/=0.)
@@ -1280 +1277 @@
 !!        ' at',MINLOC(RUBLTEN, MASK=RUBLTEN/=0.)
 !PRINT *, RUBLTEN(10,1,10), RUBLTEN(10,15,10)
-PRINT *, 'v non-zero tendencies'
+!PRINT *, 'v non-zero tendencies'
 !!PRINT *, 'max',MAXVAL(RVBLTEN, MASK=RVBLTEN/=0.),&
 !!        ' at',MAXLOC(RVBLTEN, MASK=RVBLTEN/=0.)