Changeset 1496 for LMDZ5/trunk/libf/phylmd/calltherm.F90

Timestamp:

Mar 11, 2011, 10:44:05 AM (13 years ago)

Author:

Laurent Fairhead

Message:

Modified closure for the new physics package, new values for the iflag_coupl parameter
FH

---

Fermeture modifiée pour la nouvelle physique, nouvelles valeurs définies pour
le paramètre iflag_coupl
FH

File:

• LMDZ5/trunk/libf/phylmd/calltherm.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/calltherm.F90

@@ -216 +216 @@
      &      ,zfm_therm,zentr_therm,zdetr_therm,zqasc,zqla,lmax  &
      &      ,ratqscth,ratqsdiff,zqsatth  &
-     &      ,r_aspect_thermals,l_mix_thermals &
-     &      ,tau_thermals,iflag_thermals_ed,Ale,Alp,lalim_conv,wght_th &
+!    &      ,r_aspect_thermals,l_mix_thermals &
+!    &      ,tau_thermals,iflag_thermals_ed,iflag_coupl &
+     &      ,Ale,Alp,lalim_conv,wght_th &
      &      ,zmax0,f0,zw2,fraca,ztv,zpspsk &
      &      ,ztla,zthl)