Changeset 918 for LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/ini_histISCCP.h

Timestamp:

Feb 27, 2008, 4:24:26 PM (17 years ago)

Author:

Laurent Fairhead

Message:

• correction du bug ISCCP (n'ecrire ptop que quand ISCCP est appelé)
• petite inversion de boucle dans isccp_cloud_types.F pour aller + vite
• "CFisation" d'un certain nombre d'unités pour les hist*
• les suggestions de JL pour rugoro

SD
LF

File:

• LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/ini_histISCCP.h (modified) (2 diffs)

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

@@ -146 +146 @@
      .                "ave(X)", zcals(n),zout_isccp(n))
 c
+         CALL histdef(nid_isccp, "ptop",
+     .                "Cld top pressure (cf ISCCP simulator)","Pa",
+     .                iim,jj_nb,nhori, 1,1,1,-99,32,
+     .                "ave(X)", zcals(n),zout_isccp(n))
+c
+         CALL histdef(nid_isccp,"meantaucld",
+     .                "ISCCP mean cloud optical thickness","1",
+     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zcals(n),zout_isccp(n))
          ENDDO
 c
@@ -169 +178 @@
      .                "Nb of calls with sunlit ", "%",
      .                iim, jj_nb,nhori,1,1,1,-99,32,
+     .                "ave(X)", zcals(n),zout_isccp(n))
+c
+          CALL histdef(nid_isccp, "ptop",
+     .                "Cld top pressure (cf ISCCP simulator)","Pa",
+     .                iim,jj_nb,nhori, 1,1,1,-99,32,
+     .                "ave(X)", zcals(n),zout_isccp(n))
+c
+          CALL histdef(nid_isccp,"meantaucld",
+     .                "ISCCP mean cloud optical thickness","1",
+     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
      .                "ave(X)", zcals(n),zout_isccp(n))
 c