Changeset 1371 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_plume.F90

Timestamp:

Apr 23, 2010, 4:09:31 PM (14 years ago)

Author:

idelkadi

Message:

• Corrections d'erreurs
• Declarations de variables additionnelles pour les sorties 1D

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_plume.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_plume.F90

@@ -593 +593 @@
 
 !      print*,'THERM 31B'
-      print*,'THERMCELL_PLUME OPTIMISE V1 CCC '
+      print*,'THERMCELL_PLUME OPTIMISE OOOO'
 
 ! Initialisations des variables reeles
@@ -765 +765 @@
           zalpha=f0(ig)*f_star(ig,l)/sqrt(w_est(ig,l+1))/rhobarz(ig,l)
           zdqt(ig,l)=max(zqta(ig,l-1)-po(ig,l),0.)/po(ig,l)
-          zdqt(ig,l)=0.