Changeset 1750 for LMDZ5/branches/testing/libf/phylmd/calltherm.F90

Timestamp:

Apr 25, 2013, 5:27:27 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur r1745

---

Testing release based on r1745

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/calltherm.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/calltherm.F90

@@ -234 +234 @@
      &      ,tau_thermals,Ale,Alp,lalim_conv,wght_th &
      &      ,zmax0,f0,zw2,fraca)
-          else if (iflag_thermals==15.or.iflag_thermals==16) then
+          else if (iflag_thermals>=15.and.iflag_thermals<=18) then
 
 !            print*,'THERM iflag_thermas_ed=',iflag_thermals_ed
@@ -271 +271 @@
 ! fait bien ce qu'on croit.
 
-       flag_bidouille_stratocu=iflag_thermals<=12.or.iflag_thermals==14.or.iflag_thermals==16
+       flag_bidouille_stratocu=iflag_thermals<=12.or.iflag_thermals==14.or.iflag_thermals==16.or.iflag_thermals==18
 
       if (iflag_thermals<=12) then