Changeset 2488 for LMDZ5/branches/testing/libf/phylmd/rrtm/surayolmd.F90

Timestamp:

Apr 3, 2016, 12:09:34 AM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2457:2487 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/rrtm/surayolmd.F90 (modified) (3 diffs)

LMDZ5/branches/testing/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"