Changeset 373 for LMDZ.3.3/branches/rel-LF/libf/phylmd/phyredem.F

Timestamp:

Jul 12, 2002, 12:27:22 PM (22 years ago)

Author:

lmdzadmin

Message:

Inclusion du nouveau schema de nuages de SB. FH
IM/LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/phyredem.F (modified) (4 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/phyredem.F

@@ -7 +7 @@
      .           radsol,frugs,agesno,
      .           zmea,zstd,zsig,zgam,zthe,zpic,zval,rugsrel,
-     .           t_ancien, q_ancien)
+     .           t_ancien, q_ancien, rnebcon, ratqs, clwcon)
       IMPLICIT none
 c======================================================================
@@ -53 +53 @@
       REAL pctsrf(klon, nbsrf)
       REAL t_ancien(klon,klev), q_ancien(klon,klev)
+      real clwcon(klon,klev),rnebcon(klon,klev),ratqs(klon,klev)
 c
       INTEGER nid, nvarid, idim1, idim2, idim3
@@ -96 +97 @@
       IF(     ok_orolf ) tab_cntrl(11 ) = 1.
 
-      tab_cntrl(13) = dayref
-      tab_cntrl(14) = anneeref
       tab_cntrl(13) = day_end
       tab_cntrl(14) = annee_ref
@@ -670 +669 @@
 #endif
 c
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "CLWCON", NF_DOUBLE, 1, idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "CLWCON", NF_FLOAT, 1, idim2,nvarid)
+#endif
+      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28,
+     .                        "Eau liquide convective")
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,clwcon)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,clwcon)
+#endif
+c
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "RNEBCON", NF_DOUBLE, 1, idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "RNEBCON", NF_FLOAT, 1, idim2,nvarid)
+#endif
+      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28,
+     .                        "Nebulosite convective")
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rnebcon)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,rnebcon)
+#endif
+c
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "RATQS", NF_DOUBLE, 1, idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "RATQS", NF_FLOAT, 1, idim2,nvarid)
+#endif
+      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28,
+     .                        "Ratqs")
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,ratqs)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,ratqs)
+#endif
+c
 c
       ierr = NF_CLOSE(nid)