Changeset 389

Timestamp:

Nov 16, 2011, 12:16:58 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: corrected a problem which was preventing the model to compile with new physics [problem with ustar]

Location:

trunk

Files:

• LMDZ.MARS/libf/phymars/meso_inc/meso_inc_var.F (modified) (1 diff)
• MESOSCALE/LMD_MM_MARS/SIMU/DEF/newphys_THARSIS_WATER/callphys.def.mars11_radact_therm (added)

trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_var.F

@@ -11 +11 @@
       REAL output_tab3d(ngridmx,nlayer,n3d)
       REAL sensheat(ngridmx)    !! pour LES avec isfflx!=0
-      REAL ustar(ngridmx)    !! pour LES avec isfflx!=0
+      !REAL ustar(ngridmx)    !! pour LES avec isfflx!=0 !! already defined
       LOGICAL flag_LES     !! pour LES avec isfflx!=0
       REAL qsurfice(ngridmx) !! pour diagnostics