Ignore:
Timestamp:
Mar 14, 2013, 8:43:03 PM (12 years ago)
Author:
slebonnois
Message:

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

Location:
trunk/LMDZ.TITAN/libf/phytitan
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r894 r904  
    9595       c2 =       4737.
    9696       DO il=1,nlev
    97          temp(il)=a1*exp(-((pres(il)-b1)/c1)^2)
    98      .          + a2*exp(-((pres(il)-b2)/c2)^2)
     97         temp(il)=a1*exp(-((pres(il)-b1)/c1)**2.)
     98     .          + a2*exp(-((pres(il)-b2)/c2)**2.)
    9999       ENDDO
    100100       zkm(1)  = 0.0

  • trunk/LMDZ.TITAN/libf/phytitan/rcm1d.F

    r894 r904  
    8585      COMMON/cpdetvenus/cppdyn,nu_venus,t0_venus
    8686      REAL cppdyn,nu_venus,t0_venus
    87       real pi
    8887
    8988c=======================================================================
Note: See TracChangeset for help on using the changeset viewer.