Ignore:
Timestamp:
Sep 15, 2016, 4:20:56 PM (8 years ago)
Author:
musat
Message:

Bug correction : rrtm uses LMDZ' GES from clesphys.h
MPL/IM

Location:
LMDZ5/trunk/libf/phylmd/rrtm
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90

    r2152 r2626  
    3131 & JPINPX 
    3232USE YOERAD   , ONLY : NLW      ,NOVLP
    33 USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
     33!MPL/IM 20160915 on prend GES de phylmd USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
    3434USE YOESW    , ONLY : RAER
    3535
     
    113113REAL(KIND=JPRB) :: ZHOOK_HANDLE
    114114
     115!MPL/IM 20160915 on prend GES de phylmd
     116#include "clesphys.h"
    115117! ***
    116118
     
    400402
    401403!     ------------------------------------------------------------------
    402 
     404 
    403405IF (LHOOK) CALL DR_HOOK('RRTM_ECRT_140GP',1,ZHOOK_HANDLE)
    404406END SUBROUTINE RRTM_ECRT_140GP
  • LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.F90

    r1990 r2626  
    1616
    1717USE PARSRTM  , ONLY : JPLAY
    18 USE YOERDI   , ONLY : RCH4   , RN2O   
     18!MPL/IM 20160915 on prend GES de phylmd USE YOERDI   , ONLY : RCH4   , RN2O   
    1919USE YOERAD   , ONLY : NAER
    2020USE YOESRTAER, ONLY : RSRTAUA, RSRPIZA, RSRASYA
     
    133133#include "srtm_setcoef.intfb.h"
    134134#include "srtm_spcvrt_mcica.intfb.h"
    135 
     135!MPL/IM 20160915 on prend GES de phylmd
     136#include "clesphys.h"
    136137
    137138!-----------------------------------------------------------------------
  • LMDZ5/trunk/libf/phylmd/rrtm/suecrad.F90

    r2152 r2626  
    9595USE YOMPHY   , ONLY : LMPHYS, LRAYFM   ,LRAYFM15
    9696USE YOEPHY   , ONLY : LEPHYS   ,LERADI, LE4ALB
    97 USE YOERDI   , ONLY : RCCO2, RCCH4, RCN2O, RCCFC11, RCCFC12, RSOLINC
     97!!MPL/IM 20160915 on prend GES de phylmd USE YOERDI   , ONLY : RCCO2, RCCH4, RCN2O, RCCFC11, RCCFC12, RSOLINC
     98USE YOERDI   , ONLY : RSOLINC
    9899USE YOERAD   , ONLY : NAER     , NOZOCL   ,&
    99100 & NRADFR   ,NRADPFR  ,NRADPLA  ,NRINT    ,&
     
    245246#include "naerad.h"
    246247#include "namrgri.h"
     248!MPL/IM 20160915 on prend GES de phylmd
    247249#include "clesphys.h"
    248250
     
    449451
    450452! Valeurs LMDZ (physiq.def) MPL 18052010
    451 RCCO2   = 348.E-06_JPRB
    452 RCCH4   = 1.65E-06_JPRB
    453 RCN2O   = 306.E-09_JPRB
    454 RCCFC11 = 280.E-12_JPRB
    455 RCCFC12 = 484.E-12_JPRB
    456 print *,'SUECRAD-1'
    457 
     453!RCCO2   = 348.E-06_JPRB
     454!RCCH4   = 1.65E-06_JPRB
     455!RCN2O   = 306.E-09_JPRB
     456!RCCFC11 = 280.E-12_JPRB
     457!RCCFC12 = 484.E-12_JPRB
     458
     459!MPL/IM 20160915 on prend GES de phylmd
     460RCCO2   = CO2_ppm * 1.0e-06
     461RCCH4   = CH4_ppb * 1.0e-09
     462RCN2O   = N2O_ppb * 1.0e-09
     463RCCFC11 = CFC11_ppt * 1.0e-12
     464RCCFC12 = CFC12_ppt * 1.0e-12
     465!print *,'LMDZSUECRAD-1 RCCO2=',RCCO2
     466!print *,'LMDZSUECRAD-1 RCCH4=',RCCH4
     467!print *,'LMDZSUECRAD-1 RCN2O=',RCN2O
     468!print *,'LMDZSUECRAD-1 RCCFC11=',RCCFC11
     469!print *,'LMDZSUECRAD-1 RCCFC12=',RCCFC12
    458470!     ------------------------------------------------------------------
    459471
  • LMDZ5/trunk/libf/phylmd/rrtm/surdi.F90

    r2027 r2626  
    5454USE YOERDI   , ONLY : RRAE     ,&
    5555! & RCARDI   ,RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
    56  & RCFC12, &   
     56! & RCFC12, &   
    5757 & REPCLC   ,REPH2O   ,RSUNDUR  ,&
    5858 & RCCO2    ,RCCH4    ,RCN2O    ,RCCFC11  ,RCCFC12
     
    6161IMPLICIT NONE
    6262
     63!MPL/IM 20160915 on prend GES de phylmd
    6364!#include "clesphys.h"
    6465REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZO3MWG
Note: See TracChangeset for help on using the changeset viewer.