Changeset 2394 for LMDZ5/trunk/libf/phylmd/sw_aeroAR4.F90

Timestamp:

Nov 18, 2015, 12:41:49 PM (9 years ago)

Author:

acozic

Message:

to fit with inca we need to increase dimension of naero_grp in aero_mod.
When lmdz is running without inca dim 10 to 12 will be empty and there is no change in results

these modifications only impact the old physics coupled with inca

File:

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

LMDZ5/trunk/libf/phylmd/sw_aeroAR4.F90

@@ -23 +23 @@
   USE phys_output_mod, ONLY : swaero_diag
   USE print_control_mod, ONLY: lunout
+  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