Changeset 2470 for LMDZ5/trunk/libf/phylmd/rrtm
- Timestamp:
- Mar 16, 2016, 3:21:39 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/rrtm/surayolmd.F90
r1990 r2470 1 SUBROUTINE SURAYOLMD (PPRES)1 SUBROUTINE SURAYOLMD 2 2 #ifdef DOC 3 3 … … 53 53 IMPLICIT NONE 54 54 LOGICAL LLTRACE, LLDEBUG 55 REAL PPRES(NFLEVG)56 55 57 56 LLTRACE=.TRUE. … … 67 66 WRITE(*,FMT='('' SUPHY: '')') 68 67 WRITE(*,FMT='('' ---------------- '')') 69 ! CALL SUPHY(PPRES)70 68 CALL SUPHY(6) !!!!! A REVOIR (MPL) argument KULOUT=6 "en dur" 71 69
Note: See TracChangeset
for help on using the changeset viewer.