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

Timestamp:

Jan 27, 2003, 11:47:56 AM (22 years ago)

Author:

lmdzadmin

Message:

Rajout qsol JLD
IM

File:

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

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

@@ -1 +1 @@
 c $Header$
 c
+cIM   SUBROUTINE phyredem (fichnom,dtime,radpas,co2_ppm,solaire,
       SUBROUTINE phyredem (fichnom,dtime,radpas,
-     .           rlat,rlon, pctsrf,tsol,tsoil,deltat,qsol,snow,
+     .           rlat,rlon, pctsrf,tsol,tsoil,deltat,qsurf,qsol,snow,
      .           albedo, evap, rain_fall, snow_fall,
      .           solsw, sollw,fder,
@@ -26 +27 @@
       INTEGER radpas
       REAL rlat(klon), rlon(klon)
+cIM   REAL co2_ppm
+cIM   REAL solaire
       REAL tsol(klon,nbsrf)
       REAL tsoil(klon,nsoilmx,nbsrf)
       REAL deltat(klon)
-      REAL qsol(klon,nbsrf)
+      REAL qsurf(klon,nbsrf)
+      REAL qsol(klon)
       REAL snow(klon,nbsrf)
       REAL albedo(klon,nbsrf)
@@ -313 +317 @@
         ENDIF
 #ifdef NC_DOUBLE
-      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,qsol(1,nsrf))
-#else
-      ierr = NF_PUT_VAR_REAL (nid,nvarid,qsol(1,nsrf))
-#endif
-      ENDDO
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,qsurf(1,nsrf))
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,qsurf(1,nsrf))
+#endif
+      END DO
+C
+      ierr = NF_REDEF (nid)
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"QSOL",NF_DOUBLE,1,idim2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"QSOL",NF_FLOAT,1,idim2,nvarid)
+#endif
+      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 20,
+     .    "Eau dans le sol (mm)")
+      ierr = NF_ENDDEF(nid)
+#ifdef NC_DOUBLE
+      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,qsol)
+#else
+      ierr = NF_PUT_VAR_REAL (nid,nvarid,qsol)
+#endif
 c
       DO nsrf = 1, nbsrf