Changeset 956 for LMDZ4/trunk/libf/phy_IPCC_AR4/phytrac.F
- Timestamp:
- May 9, 2008, 6:17:59 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phy_IPCC_AR4/phytrac.F
r868 r956 428 428 429 429 c jg: c'est ca qu'on veut????? 430 ecrit_tra = FLOAT(NINT(86400./pdtphys *ecritphy))431 print*,'dans phytrac ',pdtphys,ecrit phy,ecrit_tra430 ! ecrit_tra = FLOAT(NINT(86400./pdtphys *ecritphy)) 431 print*,'dans phytrac ',pdtphys,ecrit_tra 432 432 433 433 if(nbtr.lt.nqmax) then
Note: See TracChangeset
for help on using the changeset viewer.