Changeset 2856 for LMDZ5/trunk/libf/phylmd/iophy.F90

Timestamp:

Apr 14, 2017, 4:49:58 PM (7 years ago)

Author:

oboucher

Message:

One more small omission for previous two commits

File:

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

LMDZ5/trunk/libf/phylmd/iophy.F90

@@ -508 +508 @@
 
     ! Set dryaod_diag=true if at least one of the concerned variables are defined 
+    IF (nomvar=='dryod550aer') THEN
+      IF  ( flag_var(iff)<=lev_files(iff) ) dryaod_diag=.TRUE.
+    ENDIF
     DO naero = 1, naero_tot-1
-      PRINT *,'dryaod_diag 2=', nomvar, flag_var(iff), lev_files(iff)
       IF (nomvar=='dryod550_'//name_aero_tau(naero)) THEN
         IF  ( flag_var(iff)<=lev_files(iff) ) dryaod_diag=.TRUE.
@@ -644 +646 @@
     ! Set swaero_diag=true if at least one of the concerned variables are defined
     !--OB 30/05/2016 use wider set of variables
-    !--OB 14/04/2017 change location of reinitialisation to FALSE
     IF ( var%name=='topswad' .OR. var%name=='topswad0' .OR. var%name=='solswad' .OR. var%name=='solswad0' .OR. &
          var%name=='topswai' .OR. var%name=='solswai'  .OR. ( iflag_rrtm==1 .AND. (                            &