Changeset 2575 for LMDZ5/branches/LMDZ6_rc0/libf/phylmd/sw_aeroAR4.F90

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

File:

• LMDZ5/branches/LMDZ6_rc0/libf/phylmd/sw_aeroAR4.F90 (modified) (2 diffs)

LMDZ5/branches/LMDZ6_rc0/libf/phylmd/sw_aeroAR4.F90

@@ -22 +22 @@
   USE dimphy
   USE phys_output_mod, ONLY : swaero_diag
+  USE aero_mod, ONLY : naero_grp
   IMPLICIT NONE
 
@@ -140 +141 @@
   LOGICAL flag_aerosol_strat ! use stratospehric aerosols
   INTEGER flag_aerosol      ! global flag for aerosol 0 (no aerosol) or 1-5 (aerosols)
-  REAL(KIND=8) tauaero(kdlon,kflev,9,2)  ! aerosol optical properties
-  REAL(KIND=8) pizaero(kdlon,kflev,9,2)  ! (see aeropt.F)
-  REAL(KIND=8) cgaero(kdlon,kflev,9,2)   ! -"-
+  REAL(KIND=8) tauaero(kdlon,kflev,naero_grp,2)  ! aerosol optical properties
+  REAL(KIND=8) pizaero(kdlon,kflev,naero_grp,2)  ! (see aeropt.F)
+  REAL(KIND=8) cgaero(kdlon,kflev,naero_grp,2)   ! -"-
   REAL(KIND=8) PTAUA(KDLON,2,KFLEV)    ! CLOUD OPTICAL THICKNESS (present-day value)
   REAL(KIND=8) POMEGAA(KDLON,2,KFLEV)  ! SINGLE SCATTERING ALBEDO