Changeset 1301 for trunk/LMDZ.VENUS/libf/phyvenus/writerestartphy.F

Timestamp:

Jun 26, 2014, 12:25:31 PM (10 years ago)

Author:

slebonnois

Message:

SL: many bug corrections in phyvenus, some cleaning, and a new ksi matrix format for Venus IR

File:

• trunk/LMDZ.VENUS/libf/phyvenus/writerestartphy.F (modified) (4 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/writerestartphy.F

@@ -2 +2 @@
      .           rlat,rlon, tsol,tsoil,
      .           albedo, 
-     .           solsw, sollw,fder,
-     .           radsol,
+     .           solsw, sollw,fder,dlw,
+     .           sollwdown,radsol,
      .    zmea, zstd, zsig, zgam, zthe, zpic, zval,
      .           t_ancien)
@@ -27 +27 @@
       real sollw(klon)
       real fder(klon)
+      real dlw(klon)
+      real sollwdown(klon)
       REAL radsol(klon)
       REAL zmea(klon), zstd(klon)
@@ -182 +184 @@
 #endif
       ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 27,
-     .                        "Rayonnement IF a la surface")
+     .                        "Rayonnement IR a la surface")
       ierr = NF_ENDDEF(nid)
 #ifdef NC_DOUBLE
@@ -207 +209 @@
       ierr = NF_REDEF (nid)
 #ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "dlw", NF_DOUBLE, 1, idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "dlw", NF_FLOAT, 1, idim2,nvarid)
+#endif
+      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 14,
+     .                        "Derivee flux IR")
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,dlw)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,dlw)
+#endif
+c
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "sollwdown", NF_DOUBLE, 1, idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "sollwdown", NF_FLOAT, 1, idim2,nvarid)
+#endif
+      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 14,
+     .                        "Flux IR vers le bas a la surface")
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,sollwdown)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,sollwdown)
+#endif
+c
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
       ierr = NF_DEF_VAR (nid, "RADS", NF_DOUBLE, 1, idim2,nvarid)
 #else