Changeset 1142 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90

Timestamp:

Apr 7, 2009, 5:53:39 PM (16 years ago)

Author:

yann meurdesoif

Message:

Portage vers Vargas

Y.M + E.M

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90

@@ -16 +16 @@
 #include "thermcell.h"
 #include "iniprint.h"
-
-!  A inclure eventuellement dans les fichiers de configuration
-      data r_aspect_thermals,l_mix_thermals/2.,30./
-      data w2di_thermals/1/
 
 !IM 140508
@@ -176 +172 @@
      &      ,tau_thermals,3)
           else if (iflag_thermals.eq.11) then
-            stop'cas non prevu dans calltherm'
+            stop 'cas non prevu dans calltherm'
 !           CALL thermcell_pluie(klon,klev,zdt  &
 !   &      ,pplay,paprs,pphi,zlev  &