/[lmdze]/trunk/Sources/phylmd/phyetat0.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/phyetat0.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 207 by guez, Thu Sep 1 10:30:53 2016 UTC revision 215 by guez, Tue Mar 28 12:46:28 2017 UTC
# Line 36  contains Line 36  contains
36      REAL, intent(out):: ftsol(klon, nbsrf)      REAL, intent(out):: ftsol(klon, nbsrf)
37      REAL, intent(out):: ftsoil(klon, nsoilmx, nbsrf)      REAL, intent(out):: ftsoil(klon, nsoilmx, nbsrf)
38      REAL, intent(out):: qsurf(klon, nbsrf)      REAL, intent(out):: qsurf(klon, nbsrf)
39      REAL, intent(out):: qsol(:) ! (klon)  
40        REAL, intent(out):: qsol(:)
41        ! (klon) column-density of water in soil, in kg m-2
42    
43      REAL, intent(out):: snow(klon, nbsrf)      REAL, intent(out):: snow(klon, nbsrf)
44      REAL, intent(out):: albe(klon, nbsrf)      REAL, intent(out):: albe(klon, nbsrf)
45      REAL, intent(out):: evap(klon, nbsrf)      REAL, intent(out):: evap(klon, nbsrf)
# Line 179  contains Line 182  contains
182      call NF95_INQ_VARID(ncid_startphy, "QS", varid)      call NF95_INQ_VARID(ncid_startphy, "QS", varid)
183      call nf95_get_var(ncid_startphy, varid, qsurf)      call nf95_get_var(ncid_startphy, varid, qsurf)
184    
     ! Eau dans le sol (pour le modele de sol "bucket")  
   
185      ierr = NF90_INQ_VARID(ncid_startphy, "QSOL", varid)      ierr = NF90_INQ_VARID(ncid_startphy, "QSOL", varid)
186      IF (ierr == NF90_NOERR) THEN      IF (ierr == NF90_NOERR) THEN
187         call nf95_get_var(ncid_startphy, varid, qsol)         call nf95_get_var(ncid_startphy, varid, qsol)
Legend:
Removed from v.207  
changed lines
  Added in v.215
  ViewVC Help
Powered by ViewVC 1.1.21