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/surdi.F90

    • Property svn:keywords set to Author Date Id Revi
    r1990 r2027  
     1!
     2! $Id$
     3!
    14SUBROUTINE SURDI
    25
    … …  
    5053
    5154USE YOERDI   , ONLY : RRAE     ,&
    52  & RCARDI   ,RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
    53  & RCFC12   ,REPCLC   ,REPH2O   ,RSUNDUR  ,&
     55! & RCARDI   ,RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
     56 & RCFC12, &   
     57 & REPCLC   ,REPH2O   ,RSUNDUR  ,&
    5458 & RCCO2    ,RCCH4    ,RCN2O    ,RCCFC11  ,RCCFC12
     59
    5560
    5661IMPLICIT NONE
    5762
     63!#include "clesphys.h"
    5864REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZO3MWG
    5965REAL(KIND=JPRB) :: ZHOOK_HANDLE
    … …  
    95101!RCFC12  = 484.E-12_JPRB*ZC12MWG/ZAIRMWG
    96102
    97 RCARDI  = RCCO2   * ZCO2MWG/ZAIRMWG
    98 RCH4    = RCCH4   * ZCH4MWG/ZAIRMWG
    99 RN2O    = RCN2O   * ZN2OMWG/ZAIRMWG
    100 RO3     = 1.E-06_JPRB*ZO3MWG /ZAIRMWG
    101 RCFC11  = RCCFC11 * ZC11MWG/ZAIRMWG
    102 RCFC12  = RCCFC12 * ZC12MWG/ZAIRMWG
     103!RCARDI  = RCCO2   * ZCO2MWG/ZAIRMWG
     104!RCH4    = RCCH4   * ZCH4MWG/ZAIRMWG
     105!RN2O    = RCN2O   * ZN2OMWG/ZAIRMWG
     106!RO3     = 1.E-06_JPRB*ZO3MWG /ZAIRMWG
     107!RCFC11  = RCCFC11 * ZC11MWG/ZAIRMWG
     108!RCFC12  = RCCFC12 * ZC12MWG/ZAIRMWG
     109
    103110
    104111REPCLC=1.E-12_JPRB
    105112REPH2O=1.E-12_JPRB
     113
    106114
    107115!     -----------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.