Changeset 1279 for LMDZ4/trunk/libf/phylmd/orografi.F
- Timestamp:
- Dec 10, 2009, 10:02:56 AM (15 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
/LMDZ4/branches/LMDZ4-dev merged: 1150-1162,1164-1193,1195-1231,1234-1235,1237-1240,1242-1274,1276
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/phylmd/orografi.F
r776 r1279 1792 1792 1793 1793 DO 110 JK=1,NLEV 1794 ZPM1R=pplay_glo( klon_glo/2,jk)/paprs_glo(klon_glo/2,1)1794 ZPM1R=pplay_glo((klon_glo/2)+1,jk)/paprs_glo((klon_glo/2)+1,1) 1795 1795 IF(ZPM1R.GE.ZSIGT)THEN 1796 1796 nktopg=JK 1797 1797 ENDIF 1798 ZPM1R=pplay_glo( klon_glo/2,jk)/paprs_glo(klon_glo/2,1)1798 ZPM1R=pplay_glo((klon_glo/2)+1,jk)/paprs_glo((klon_glo/2)+1,1) 1799 1799 IF(ZPM1R.GE.ZSTRA)THEN 1800 1800 NSTRA=JK
Note: See TracChangeset
for help on using the changeset viewer.