Changeset 589 for LMDZ4/branches/IPSL-CM4_IPCC_patches/libf/phylmd/ini_histhf.h

Timestamp:

Feb 7, 2005, 4:47:11 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Modifications pour le couplage carbone LOOP, PC
LF

File:

• LMDZ4/branches/IPSL-CM4_IPCC_patches/libf/phylmd/ini_histhf.h (modified) (1 diff)

LMDZ4/branches/IPSL-CM4_IPCC_patches/libf/phylmd/ini_histhf.h

@@ -113 +113 @@
      .                "ave(X)", zsto1,zout)
 c
-c
+c -- LOOP
          CALL histdef(nid_hf, "SWdownOR",
-     .                "Sfce incident SW radiation OR", "W/m^2",
-     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
-     .                "ave(X)", zsto1,zout)
+     .                "Sfce incident SW down radiation OR", "W/m^2",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zsto1,zout)
+c
+         CALL histdef(nid_hf, "SWnetOR",
+     .                "Sfce incident SW net radiation OR", "W/m^2",
+     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
+     .                "ave(X)", zsto1,zout)
+c -- LOOP
 c
          CALL histdef(nid_hf, "LWdownOR",