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

Timestamp:

Jul 28, 2000, 2:38:04 PM (24 years ago)

Author:

lmdzadmin

Message:

Mise au point de l'interface en force, ca tourne sur un pas de temps
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

@@ -3 +3 @@
      .           albedo, evap, rain_fall, snow_fall,
      .           solsw, sollw,
-     .           radsol,rugmer,agesno,
+     .           radsol,frugs,agesno,
      .           zmea,zstd,zsig,zgam,zthe,zpic,zval,rugsrel,
      .           t_ancien, q_ancien)
@@ -38 +38 @@
       real sollw(klon)
       REAL radsol(klon)
-      REAL rugmer(klon)
+      REAL frugs(klon,nbsrf)
       REAL agesno(klon)
       REAL zmea(klon)
@@ -464 +464 @@
 #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,rugmer)
-#else
-      ierr = NF_PUT_VAR_REAL (nid,nvarid,rugmer)
-#endif
+      DO nsrf = 1, nbsrf
+        IF (nsrf.LE.99) THEN
+        WRITE(str2,'(i2.2)') nsrf
+        ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+        ierr = NF_DEF_VAR (nid,"RUG"//str2,NF_DOUBLE,1,idim2,nvarid)
+#else
+        ierr = NF_DEF_VAR (nid,"RUG"//str2,NF_FLOAT,1,idim2,nvarid)
+#endif
+        ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 23,
+     .                        "rugosite de surface No."//str2)
+        ierr = NF_ENDDEF(nid)
+        ELSE
+        PRINT*, "Trop de sous-mailles"
+        CALL abort
+        ENDIF
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,frugs(1,nsrf))
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,frugs(1,nsrf))
+#endif
+      ENDDO
 c
       ierr = NF_REDEF (nid)