- Timestamp:
- Feb 27, 2008, 4:24:26 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/pbl_surface_mod.F90
r803 r918 962 962 patm(j)=ypplay(j,1) 963 963 qairsol(j) = yqsurf(j) 964 END DO 965 964 ! Blindage provisoire 965 rugo1(j)=MAX(rugo1(j),1.E-5) 966 END DO 966 967 967 968 ! Calculate the temperature et relative humidity at 2m and the wind at 10m
Note: See TracChangeset
for help on using the changeset viewer.