Changeset 2408 for LMDZ5/branches/testing/libf/phylmd/sw_aeroAR4.F90

Timestamp:

Dec 14, 2015, 11:43:09 AM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2298:2396 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/sw_aeroAR4.F90 (modified) (2 diffs)

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

@@ -22 +22 @@
   USE dimphy
   USE phys_output_mod, ONLY : swaero_diag
+  USE print_control_mod, ONLY: lunout
+  USE aero_mod, ONLY : naero_grp
   IMPLICIT NONE
 
 #include "YOMCST.h"
 #include "clesphys.h"
-#include "iniprint.h"
   !
   !     ------------------------------------------------------------------
@@ -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