Ignore:
Timestamp:
Mar 16, 2016, 3:21:39 PM (9 years ago)
Author:
Laurent Fairhead
Message:

Remove PPRES argument (not used) from surayolmd (OB + MPL)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/rrtm/surayolmd.F90

    r1990 r2470  
    1 SUBROUTINE SURAYOLMD(PPRES)
     1SUBROUTINE SURAYOLMD
    22#ifdef DOC
    33
     
    5353IMPLICIT NONE
    5454LOGICAL LLTRACE, LLDEBUG
    55 REAL PPRES(NFLEVG)
    5655
    5756LLTRACE=.TRUE.
     
    6766WRITE(*,FMT='(''     SUPHY: '')')
    6867WRITE(*,FMT='('' ---------------- '')')
    69 !  CALL SUPHY(PPRES)
    7068  CALL SUPHY(6)    !!!!! A REVOIR (MPL) argument KULOUT=6 "en dur"
    7169
Note: See TracChangeset for help on using the changeset viewer.