Changeset 2863 for LMDZ5/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Apr 24, 2017, 10:14:02 AM (7 years ago)

Author:

Ehouarn Millour

Message:

Added missing declaration and closing bracket introduced in rev 2854.
EM

File:

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

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -972 +972 @@
     ! pre-industrial (pi) aerosols
 
-
+    INTEGER :: naero
     ! Aerosol optical properties
     CHARACTER*4, DIMENSION(naero_grp) :: rfname 
@@ -1584 +1584 @@
        !--setting up dryaod_diag to TRUE in XIOS case 
        DO naero = 1, naero_tot-1
-         IF (xios_field_is_active("dryod550_"//name_aero_tau(naero)) dryaod_diag=.TRUE. 
+         IF (xios_field_is_active("dryod550_"//name_aero_tau(naero))) dryaod_diag=.TRUE. 
        ENDDO
 #endif