Changeset 155 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

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

Author:

aslmd

Message:

MESOSCALE: changements cosmetiques (print etc...)

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F (modified) (4 diffs)

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.)