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

Timestamp:

Mar 9, 2001, 4:36:10 PM (24 years ago)

Author:

lmdzadmin

Message:

Lots of stuff, plus particulierement:

• appel a ORCHIDEE en etat de marche (pb de grille subsiste)
• modifs de Pascale sur soil dans le cas ou ok_veget=false -

File:

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

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

@@ -648 +648 @@
 #endif
 c
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid, "RUGMER", NF_DOUBLE, 1, idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid, "RUGMER", NF_FLOAT, 1, idim2,nvarid)
+#endif
+      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28,
+     .                        "Longueur de rugosite sur mer")
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,frugs(1,is_oce))
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,frugs(1,is_oce))
+#endif
+c
+c
       ierr = NF_CLOSE(nid)
 c