Changeset 2470 for LMDZ5/trunk/libf/phylmd/rrtm/surayolmd.F90

Timestamp:

Mar 16, 2016, 3:21:39 PM (8 years ago)

Author:

Laurent Fairhead

Message:

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

File:

• LMDZ5/trunk/libf/phylmd/rrtm/surayolmd.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/rrtm/surayolmd.F90

@@ -1 @@
-SUBROUTINE SURAYOLMD(PPRES)
+SUBROUTINE SURAYOLMD
 #ifdef DOC
 
@@ -53 +53 @@
 IMPLICIT NONE
 LOGICAL LLTRACE, LLDEBUG
-REAL PPRES(NFLEVG)
 
 LLTRACE=.TRUE.
@@ -67 +66 @@
 WRITE(*,FMT='(''     SUPHY: '')')
 WRITE(*,FMT='('' ---------------- '')')
-!  CALL SUPHY(PPRES)
   CALL SUPHY(6)    !!!!! A REVOIR (MPL) argument KULOUT=6 "en dur"