Changeset 1266 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h

Timestamp:

Nov 20, 2009, 5:27:40 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Correction d'un bug dans aeropt_5wv.F90 : une variable était utilisée sans
être calculée
Ajout de tests sur l'écriture de variables dans les fichiers de sortie
Changement des arguments d'appels à INCA
ACo

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h (modified) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h

@@ -834 +834 @@
 
 ! OD550 per species
-      IF (new_aod) THEN
+      IF (new_aod .and. (.not. aerosol_couple)) THEN
       DO naero = 1, naero_spc
           IF (o_tausumaero(naero)%flag(iff)<=lev_files(iff)) THEN
@@ -898 +898 @@
 
 !cf
+
+        if (.not. aerosol_couple) then
         IF (o_swtoacf_nat%flag(iff)<=lev_files(iff)) THEN
         CALL histwrite_phy(nid_files(iff),o_swtoacf_nat%name,itau_w,
@@ -927 +929 @@
      $      solswcf_aero(:,3))
         ENDIF
+        endif
 
         endif ! new_aod