Changeset 2575 for LMDZ5/branches


Ignore:
Timestamp:
Jun 16, 2016, 10:47:42 AM (8 years ago)
Author:
acozic
Message:

for the VLR configuration add some modification from the trunk to fit with INCA version use

Location:
LMDZ5/branches/LMDZ6_rc0/libf
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/LMDZ6_rc0/libf/dyn3d_common/infotrac.F90

    r2381 r2575  
    152152       endif
    153153    ELSE ! type_trac=inca
    154        ! nbtr has been read from INCA by init_const_lmdz() in gcm.F
     154#ifdef INCA
     155       CALL Init_chem_inca_trac(nbtr)
     156#endif       
    155157       nqtrue=nbtr+2
    156158    END IF
  • LMDZ5/branches/LMDZ6_rc0/libf/dyn3dmem/gcm.F

    r2381 r2575  
    237237#ifdef INCA
    238238         call init_const_lmdz(
    239      $        nbtr,anneeref,dayref,
     239     $        anneeref,dayref,
    240240     $        iphysiq,day_step,nday,
    241241     $        nbsrf, is_oce,is_sic,
  • LMDZ5/branches/LMDZ6_rc0/libf/phylmd/aero_mod.F90

    r2160 r2575  
    6262
    6363! 3/ Number of aerosol groups
    64   INTEGER, PARAMETER :: naero_grp = 9
     64  INTEGER, PARAMETER :: naero_grp = 12
     65  ! if info_trac = inca
     66  ! 1 = ZERO   
     67  ! 2 = AER total   
     68  ! 3 = NAT   
     69  ! 4 = BC   
     70  ! 5 = SO4   
     71  ! 6 = POM   
     72  ! 7 = DUST   
     73  ! 8 = SS   
     74  ! 9 = FNO3   
     75  ! 10 = DNO3
     76  ! 11 = SNO3
     77  ! 12 = empty actually
     78  ! else
    6579  ! 1 = ZERO   
    6680  ! 2 = AER total   
  • LMDZ5/branches/LMDZ6_rc0/libf/phylmd/phytrac_mod.F90

    r2381 r2575  
    101101
    102102    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     103    USE aero_mod, ONLY : naero_grp
    103104
    104105    IMPLICIT NONE
     
    173174    LOGICAL,INTENT(IN)                       :: aerosol_couple
    174175    REAL,DIMENSION(klon,klev),INTENT(IN)     :: flxmass_w
    175     REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: tau_aero
    176     REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: piz_aero
    177     REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: cg_aero
    178     CHARACTER(len=4),DIMENSION(9),INTENT(IN) :: rfname
     176    REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: tau_aero
     177    REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: piz_aero
     178    REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: cg_aero
     179    CHARACTER(len=4),DIMENSION(naero_grp),INTENT(IN) :: rfname
    179180    REAL,DIMENSION(klon,klev,2),INTENT(IN)   :: ccm
    180181    !... K.Emanuel
  • LMDZ5/branches/LMDZ6_rc0/libf/phylmd/radlwsw_m.F90

    r2160 r2575  
    7474      USE YOERRTWN , ONLY : DELWAVE   ,TOTPLNK     
    7575      USE YOMPHY3  , ONLY : RII0
    76 #else
    77       USE aero_mod, ONLY : nbands_lw_rrtm
    7876#endif
     77      USE aero_mod
    7978
    8079  !======================================================================
     
    187186  LOGICAL, INTENT(in)  :: flag_aerosol_strat                             ! use stratospheric aerosols
    188187  REAL,    INTENT(in)  :: cldfra(KLON,KLEV), cldemi(KLON,KLEV), cldtaupd(KLON,KLEV)
    189   REAL,    INTENT(in)  :: tau_aero(KLON,KLEV,9,2)                        ! aerosol optical properties (see aeropt.F)
    190   REAL,    INTENT(in)  :: piz_aero(KLON,KLEV,9,2)                        ! aerosol optical properties (see aeropt.F)
    191   REAL,    INTENT(in)  :: cg_aero(KLON,KLEV,9,2)                         ! aerosol optical properties (see aeropt.F)
     188  REAL,    INTENT(in)  :: tau_aero(KLON,KLEV,naero_grp,2)                        ! aerosol optical properties (see aeropt.F)
     189  REAL,    INTENT(in)  :: piz_aero(KLON,KLEV,naero_grp,2)                        ! aerosol optical properties (see aeropt.F)
     190  REAL,    INTENT(in)  :: cg_aero(KLON,KLEV,naero_grp,2)                         ! aerosol optical properties (see aeropt.F)
    192191!--OB
    193192  REAL,    INTENT(in)  :: tau_aero_sw_rrtm(KLON,KLEV,2,NSW)                 ! aerosol optical properties RRTM
     
    285284  REAL(KIND=8) zsolsw0(kdlon), zsollw0(kdlon)
    286285  REAL(KIND=8) zznormcp
    287   REAL(KIND=8) tauaero(kdlon,kflev,9,2)                     ! aer opt properties
    288   REAL(KIND=8) pizaero(kdlon,kflev,9,2)
    289   REAL(KIND=8) cgaero(kdlon,kflev,9,2)
     286  REAL(KIND=8) tauaero(kdlon,kflev,naero_grp,2)                     ! aer opt properties
     287  REAL(KIND=8) pizaero(kdlon,kflev,naero_grp,2)
     288  REAL(KIND=8) cgaero(kdlon,kflev,naero_grp,2)
    290289  REAL(KIND=8) PTAUA(kdlon,2,kflev)                         ! present-day value of cloud opt thickness (PTAU is pre-industrial value), local use
    291290  REAL(KIND=8) POMEGAA(kdlon,2,kflev)                       ! dito for single scatt albedo
  • LMDZ5/branches/LMDZ6_rc0/libf/phylmd/sw_aeroAR4.F90

    r1910 r2575  
    2222  USE dimphy
    2323  USE phys_output_mod, ONLY : swaero_diag
     24  USE aero_mod, ONLY : naero_grp
    2425  IMPLICIT NONE
    2526
     
    140141  LOGICAL flag_aerosol_strat ! use stratospehric aerosols
    141142  INTEGER flag_aerosol      ! global flag for aerosol 0 (no aerosol) or 1-5 (aerosols)
    142   REAL(KIND=8) tauaero(kdlon,kflev,9,2)  ! aerosol optical properties
    143   REAL(KIND=8) pizaero(kdlon,kflev,9,2)  ! (see aeropt.F)
    144   REAL(KIND=8) cgaero(kdlon,kflev,9,2)   ! -"-
     143  REAL(KIND=8) tauaero(kdlon,kflev,naero_grp,2)  ! aerosol optical properties
     144  REAL(KIND=8) pizaero(kdlon,kflev,naero_grp,2)  ! (see aeropt.F)
     145  REAL(KIND=8) cgaero(kdlon,kflev,naero_grp,2)   ! -"-
    145146  REAL(KIND=8) PTAUA(KDLON,2,KFLEV)    ! CLOUD OPTICAL THICKNESS (present-day value)
    146147  REAL(KIND=8) POMEGAA(KDLON,2,KFLEV)  ! SINGLE SCATTERING ALBEDO
  • LMDZ5/branches/LMDZ6_rc0/libf/phylmd/tracinca_mod.F90

    r2381 r2575  
    4848    USE indice_sol_mod
    4949
    50    
     50    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
     51    USE aero_mod, ONLY : naero_grp
     52
    5153    IMPLICIT NONE
    5254   
     
    9799    LOGICAL,INTENT(IN)                       :: aerosol_couple
    98100    REAL,DIMENSION(klon,klev),INTENT(IN)     :: flxmass_w
    99     REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: tau_aero
    100     REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: piz_aero
    101     REAL,DIMENSION(klon,klev,9,2),INTENT(IN) :: cg_aero
    102     CHARACTER(len=4),DIMENSION(9),INTENT(IN) :: rfname
     101    REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: tau_aero
     102    REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: piz_aero
     103    REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: cg_aero
     104    CHARACTER(len=4),DIMENSION(naero_grp),INTENT(IN) :: rfname
    103105    REAL,DIMENSION(klon,klev,2),INTENT(IN)   :: ccm
    104106
     
    148150         rh,tau_aero,piz_aero,cg_aero,   &
    149151         rfname,ccm,lafin, config_inca)
    150 #endif
    151152
    152 
    153 #ifdef INCA
    154153    CALL chemmain (tr_seri, &   !mmr
    155154         nstep,      & !nstep
     
    183182         sh,         & !sh
    184183         rh,         & !rh
    185          iip1,       & !nx
    186          jjp1,       & !ny
     184         nbp_lon,   & !nx
     185         nbp_lat,    & !ny
    187186         source )
    188187#endif
Note: See TracChangeset for help on using the changeset viewer.