Changeset 1243


Ignore:
Timestamp:
Sep 15, 2009, 9:24:14 AM (15 years ago)
Author:
Laurent Fairhead
Message:

Modification pour le 1D

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/orografi.F

    r776 r1243  
    17921792           
    17931793      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)
    17951795      IF(ZPM1R.GE.ZSIGT)THEN
    17961796         nktopg=JK
    17971797      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)
    17991799      IF(ZPM1R.GE.ZSTRA)THEN
    18001800         NSTRA=JK
Note: See TracChangeset for help on using the changeset viewer.