Changeset 463 for LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F
- Timestamp:
- Apr 22, 2003, 1:16:30 PM (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F
r456 r463 1968 1968 cIM cf. FH slp(:) = paprs(:,1)*exp(pphis(:)/(289.*t_seri(:,1))) 1969 1969 slp(:) = paprs(:,1)*exp(pphis(:)/(RD*t_seri(:,1))) 1970 PRINT*,' physiq slp ',slp(2185),paprs(2185,1),pphis(2185),1971 . RD,t_seri(2185,1)1972 1970 c 1973 1971
Note: See TracChangeset
for help on using the changeset viewer.