Changeset 896 for LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/ini_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/ini_histmth.h (modified) (1 diff)

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

@@ -291 +291 @@
      .                iim,jj_nb,nhori, 1,1,1, -99, 32, 
      .                "ave(X)", zstophy,zout)
+c
+c
+c Effets des aerosols
+c
+c     IF (ok_ade.OR.ok_aie) THEN
+         CALL histdef(nid_mth, "topsad", "ADE at TOA", "W/m2",
+     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zstophy,zout)
+c
+         CALL histdef(nid_mth, "solsad", "ADE at sfc", "W/m2",
+     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zstophy,zout)
+c
+         CALL histdef(nid_mth, "topsai", "AIE at TOA", "W/m2",
+     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zstophy,zout)
+c
+         CALL histdef(nid_mth, "solsai", "AIE at sfc", "W/m2",
+     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zstophy,zout)
+c     endif
 c
 c          CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",