Changeset 389 for trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_var.F

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]

File:

• trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_var.F (modified) (1 diff)

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