Changeset 896 for LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histmth.h

Timestamp:

Feb 6, 2008, 3:48:34 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Rajout de sorties concernant les aerosols qui avaient disparus lors d'un merge
LF

File:

• LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histmth.h (modified) (1 diff)

LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histmth.h

@@ -244 +244 @@
 cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d)
       CALL histwrite_phy(nid_mth,"LWdnSFCclr",itau_w,sollwdownclr)
+c
+c
+c effets des aerosols
+c
+      IF (ok_ade.OR.ok_aie) THEN
+      zx_tmp_fi2d(1:klon) = topswai(1:klon) - topswad(1:klon)
+      CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_2d)
+c
+      zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon)
+      CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_2d)
+c
+      zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon)
+      CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_2d)
+c
+      zx_tmp_fi2d(1:klon) = solsw(1:klon) - solswai(1:klon)
+      CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_2d)
+      endif
+
 c
 cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)