Ignore:
Timestamp:
Apr 29, 2014, 3:38:53 PM (11 years ago)
Author:
Laurent Fairhead
Message:

Problèmes sur les concentrations de certains gaz

  1. Baek

Problems on some gases concentrations

  1. Baek
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90

    • Property svn:keywords set to Author Date Id Revi
    r1990 r2027  
     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.