Changeset 2550 for LMDZ5/trunk/libf/phylmd/aero_mod.F90

Timestamp:

Jun 8, 2016, 10:19:36 PM (8 years ago)

Author:

oboucher

Message:

Correcting a bug in the calculation of od550_strat
Computing od_10um_strat in readaerosolstrato*.F90

File:

• LMDZ5/trunk/libf/phylmd/aero_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/aero_mod.F90

@@ -88 +88 @@
 
 ! Number of diagnostics wavelengths (5 SW + 1 LW @ 10 um)
-  INTEGER, PARAMETER :: nwave = 5
+  INTEGER, PARAMETER :: nwave_sw = 5
   INTEGER, PARAMETER :: nwave_lw = 1
+  INTEGER, PARAMETER :: nwave = nwave_sw + nwave_lw
 
 ! Number of modes spectral bands