Ignore:
Timestamp:
Jun 11, 2014, 3:46:46 PM (10 years ago)
Author:
Laurent Fairhead
Message:

Merged trunk changes r1997:2055 into testing branch

Location:
LMDZ5/branches/testing
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing

  • LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90

    • Property svn:keywords set to Author Date Id Revi
    r1999 r2056  
     1!
     2! $Id$
     3!
    14!****************** SUBROUTINE RRTM_ECRT_140GP **************************
    25
    … …  
    2629 & JPINPX 
    2730USE YOERAD   , ONLY : NOVLP
    28 USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
     31!USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
    2932USE YOESW    , ONLY : RAER
    3033
    3134!------------------------------Arguments--------------------------------
    3235
     36
     37
    3338IMPLICIT NONE
    3439
     40#include "clesphys.h"
    3541INTEGER(KIND=JPIM),INTENT(IN)    :: KLON! Number of atmospheres (longitudes)
    3642INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV! Number of atmospheric layers
    … …  
    384390!     ------------------------------------------------------------------
    385391
     392
     393
    386394IF (LHOOK) CALL DR_HOOK('RRTM_ECRT_140GP',1,ZHOOK_HANDLE)
    387395END SUBROUTINE RRTM_ECRT_140GP
Note: See TracChangeset for help on using the changeset viewer.