Changeset 1492 for LMDZ5/trunk/libf/phylmd/orografi_strato.F
- Timestamp:
- Mar 8, 2011, 9:10:25 AM (13 years ago)
- Location:
- LMDZ5/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk
- Property svn:mergeinfo changed
/LMDZ5/branches/LMDZ5V2.0-dev (added) merged: 1456-1457,1460-1463,1466-1467,1470,1472-1475,1478,1480,1482,1484-1491
- Property svn:mergeinfo changed
-
LMDZ5/trunk/libf/phylmd/orografi_strato.F
r1403 r1492 2004 2004 2005 2005 DO 110 JK=1,NLEV 2006 ZPM1R=pplay_glo(klon_glo/2,jk)/paprs_glo(klon_glo/2 ,1)2006 ZPM1R=pplay_glo(klon_glo/2,jk)/paprs_glo(klon_glo/2+1,1) 2007 2007 IF(ZPM1R.GE.ZSIGT)THEN 2008 2008 nktopg=JK 2009 2009 ENDIF 2010 ZPM1R=pplay_glo(klon_glo/2,jk)/paprs_glo(klon_glo/2 ,1)2010 ZPM1R=pplay_glo(klon_glo/2,jk)/paprs_glo(klon_glo/2+1,1) 2011 2011 IF(ZPM1R.GE.ZTOP)THEN 2012 2012 nstra=JK
Note: See TracChangeset
for help on using the changeset viewer.