Changeset 341 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys

Timestamp:

Nov 3, 2011, 2:28:57 PM (14 years ago)

Author:

aslmd

Message:

MESOSCALE: tests pour faire marcher le modele en parallele sur la ferme. toujours infructueux... toutes les notes incluses et options explorees en commentaire. les options par defaut restent les memes en attendant. ajout de scripts pour compiler NETCDF et MPI. correction d un probleme de Registry et de makemeso pour les runs LES ancienne physique. ajout d un cas test LES phoenix.

File:

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

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

@@ -412 +412 @@
 ENDIF 
 
-!!!! for 'subgrid' temporal diagnostics
-test2 = MODULO(elaps,history_interval*100.)
+!!!!! for 'subgrid' temporal diagnostics
+!test2 = MODULO(elaps,history_interval*100.)
 
 !!!******!!
@@ -478 +478 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-IF (test2.EQ.0) THEN
-  print *, 'compute stats'
-  print *, 'RESET'
-   uave  = uave*0.
-     vave  = vave*0.
-     tave  = tave*0.
-     wave  = wave*0.
-   ustd  = ustd*0.
-     vstd  = vstd*0.
-     tstd  = tstd*0.
-     wstd  = wstd*0.
-ENDIF
-  uave = uave + u  * dt / (float(history_interval)*100.)
-  vave = vave + v  * dt / (float(history_interval)*100.)
-  tave = tave + th * dt / (float(history_interval)*100.)
-  wave = wave + w  * dt / (float(history_interval)*100.)
-  ustd = ustd + u  * u  * dt / (float(history_interval)*100.)
-  vstd = vstd + v  * v  * dt / (float(history_interval)*100.)
-  tstd = tstd + th * th * dt / (float(history_interval)*100.)
-  wstd = wstd + w  * w  * dt / (float(history_interval)*100.)
+!IF (test2.EQ.0) THEN
+!  print *, 'compute stats'
+!  print *, 'RESET'
+!   uave  = uave*0.
+!     vave  = vave*0.
+!     tave  = tave*0.
+!     wave  = wave*0.
+!   ustd  = ustd*0.
+!     vstd  = vstd*0.
+!     tstd  = tstd*0.
+!     wstd  = wstd*0.
+!ENDIF
+!  uave = uave + u  * dt / (float(history_interval)*100.)
+!  vave = vave + v  * dt / (float(history_interval)*100.)
+!  tave = tave + th * dt / (float(history_interval)*100.)
+!  wave = wave + w  * dt / (float(history_interval)*100.)
+!  ustd = ustd + u  * u  * dt / (float(history_interval)*100.)
+!  vstd = vstd + v  * v  * dt / (float(history_interval)*100.)
+!  tstd = tstd + th * th * dt / (float(history_interval)*100.)
+!  wstd = wstd + w  * w  * dt / (float(history_interval)*100.)
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!