Changeset 904 for trunk/LMDZ.TITAN/libf
- Timestamp:
- Mar 14, 2013, 8:43:03 PM (12 years ago)
- Location:
- trunk/LMDZ.TITAN/libf/phytitan
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.TITAN/libf/phytitan/profile.F
r894 r904 95 95 c2 = 4737. 96 96 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.) 99 99 ENDDO 100 100 zkm(1) = 0.0 -
trunk/LMDZ.TITAN/libf/phytitan/rcm1d.F
r894 r904 85 85 COMMON/cpdetvenus/cppdyn,nu_venus,t0_venus 86 86 REAL cppdyn,nu_venus,t0_venus 87 real pi88 87 89 88 c=======================================================================
Note: See TracChangeset
for help on using the changeset viewer.