Changeset 1653 for LMDZ5/trunk/libf/phylmd/phys_output_write.h

Timestamp:

Sep 17, 2012, 1:45:13 PM (12 years ago)

Author:

musat

Message:

• reorganise aerosol cases with ok_ade and ok_aie
• ADE clear-sky at TOA and ADE clear-sky at SRF have been added in the outputs

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write.h (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write.h

@@ -1258 +1258 @@
      $            topswad_aero)
           ENDIF
+          IF (o_topswad0%flag(iff)<=lev_files(iff)) THEN
+             CALL histwrite_phy(nid_files(iff),
+     $clef_stations(iff),
+     $o_topswad0%name,itau_w,
+     $            topswad0_aero)
+          ENDIF
           IF (o_solswad%flag(iff)<=lev_files(iff)) THEN
              CALL histwrite_phy(nid_files(iff),
@@ -1263 +1269 @@
      $o_solswad%name,itau_w,
      $            solswad_aero)
+          ENDIF
+          IF (o_solswad0%flag(iff)<=lev_files(iff)) THEN
+             CALL histwrite_phy(nid_files(iff),
+     $clef_stations(iff),
+     $o_solswad0%name,itau_w,
+     $            solswad0_aero)
           ENDIF