Changeset 904 for trunk/LMDZ.TITAN/libf/phytitan/profile.F

Timestamp:

Mar 14, 2013, 8:43:03 PM (12 years ago)

Author:

slebonnois

Message:

SL: stupid bug in Titan rcm1d/profile...

File:

• trunk/LMDZ.TITAN/libf/phytitan/profile.F (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/profile.F

@@ -95 +95 @@
        c2 =       4737. 
        DO il=1,nlev
-         temp(il)=a1*exp(-((pres(il)-b1)/c1)^2) 
-     .          + a2*exp(-((pres(il)-b2)/c2)^2)
+         temp(il)=a1*exp(-((pres(il)-b1)/c1)**2.) 
+     .          + a2*exp(-((pres(il)-b2)/c2)**2.)
        ENDDO
        zkm(1)  = 0.0