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

Timestamp:

Aug 6, 2003, 4:50:49 PM (21 years ago)

Author:

lmdzadmin

Message:

Modifs sur les seuils (cdrag etc...), inclusion des diagnostics ISCCP par Ionela
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

@@ -4 +4 @@
       SUBROUTINE phyredem (fichnom,dtime,radpas,
      .           rlat,rlon, pctsrf,tsol,tsoil,deltat,qsurf,qsol,snow,
-     .           albedo, evap, rain_fall, snow_fall,
+     .           albedo, alblw, evap, rain_fall, snow_fall,
      .           solsw, sollw,fder,
      .           radsol,frugs,agesno,
@@ -36 +36 @@
       REAL snow(klon,nbsrf)
       REAL albedo(klon,nbsrf)
+cIM BEG
+      REAL alblw(klon,nbsrf)
+cIM END
       REAL evap(klon,nbsrf)
       REAL rain_fall(klon)
@@ -360 +363 @@
 #endif
       ENDDO
+
+cIM BEG albedo LW
+        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,"ALBLW"//str2,NF_DOUBLE,1,idim2,nvarid)
+#else
+        ierr = NF_DEF_VAR (nid,"ALBLW"//str2,NF_FLOAT,1,idim2,nvarid)
+#endif
+        ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 23,
+     .                        "albedo LW 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,alblw(1,nsrf))
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,alblw(1,nsrf))
+#endif
+      ENDDO
+cIM END albedo LW
 c
       DO nsrf = 1, nbsrf