Changeset 1458 for LMDZ5/trunk/libf/phylmd/phyetat0.F
- Timestamp:
- Nov 22, 2010, 4:32:14 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phyetat0.F
r1454 r1458 817 817 ENDIF 818 818 WRITE(str2,'(i2.2)') nsrf 819 CALL get_field("TKE"//str2,pbl_tke(:,1:klev ,nsrf),found)819 CALL get_field("TKE"//str2,pbl_tke(:,1:klev+1,nsrf),found) 820 820 IF (.NOT. found) THEN 821 821 PRINT*, "phyetat0: <TKE"//str2//"> est absent" … … 824 824 xmin = 1.0E+20 825 825 xmax = -1.0E+20 826 DO k = 1, klev 826 DO k = 1, klev+1 827 827 DO i = 1, klon 828 828 xmin = MIN(pbl_tke(i,k,nsrf),xmin)
Note: See TracChangeset
for help on using the changeset viewer.