Changeset 2470


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

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

Location:
LMDZ5/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/iniradia.F90

    r2113 r2470  
    3030     ! l'intialisation des aerosols. Momentannement, on passe un point de
    3131     ! grille du profil de pression.
    32      CALL surayolmd(pres(klev+1)) ! initialiser le rayonnement RRTM
     32     CALL surayolmd          ! initialiser le rayonnement RRTM
    3333     PRINT *, 'iniradia: apres surayolmd '
    3434  endif

  • 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.