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

Timestamp:

May 6, 2004, 10:57:36 AM (21 years ago)

Author:

lmdzadmin

Message:

Modifications pour la fermeture en eau (fonte des glaciers) JLD, OM
LF

File:

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

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

@@ -8 +8 @@
      .           radsol,frugs,agesno,
      .           zmea,zstd,zsig,zgam,zthe,zpic,zval,rugsrel,
-     .           t_ancien, q_ancien, rnebcon, ratqs, clwcon)
+     .           t_ancien, q_ancien, rnebcon, ratqs, clwcon,
+     .           run_off_lic_0)
       IMPLICIT none
 c======================================================================
@@ -59 +60 @@
       REAL t_ancien(klon,klev), q_ancien(klon,klev)
       real clwcon(klon,klev),rnebcon(klon,klev),ratqs(klon,klev)
+      REAL run_off_lic_0(klon)
 c
       INTEGER nid, nvarid, idim1, idim2, idim3
@@ -759 +761 @@
 #endif
 c
+c run_off_lic_0
+c
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr=NF_DEF_VAR(nid,"RUNOFFLIC0",NF_DOUBLE,1,idim2,nvarid)
+#else
+      ierr=NF_DEF_VAR(nid,"RUNOFFLIC0",NF_FLOAT, 1,idim2,nvarid)
+#endif
+      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28,
+     .                        "Runofflic0")
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,run_off_lic_0)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,run_off_lic_0)
+#endif
+c
 c
       ierr = NF_CLOSE(nid)