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

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

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

revision 43 by guez, Fri Apr 8 12:43:31 2011 UTC revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC
# Line 5  module phyredem_m Line 5  module phyredem_m
5  contains  contains
6    
7    SUBROUTINE phyredem(fichnom, rlat, rlon, pctsrf, tsol, tsoil, tslab, &    SUBROUTINE phyredem(fichnom, rlat, rlon, pctsrf, tsol, tsoil, tslab, &
8         seaice, qsurf, qsol, snow, albedo, alblw, evap, rain_fall,&         seaice, qsurf, qsol, snow, albedo, alblw, evap, rain_fall, snow_fall, &
9         snow_fall, solsw, sollw, fder, radsol, frugs, agesno, zmea,&         solsw, sollw, fder, radsol, frugs, agesno, zmea, zstd, zsig, zgam, &
10         zstd, zsig, zgam, zthe, zpic, zval, t_ancien, q_ancien,&         zthe, zpic, zval, t_ancien, q_ancien, rnebcon, ratqs, clwcon, &
11         rnebcon, ratqs, clwcon, run_off_lic_0)         run_off_lic_0)
12    
13      ! From phylmd/phyredem.F, v 1.3 2005/05/25 13:10:09      ! From phylmd/phyredem.F, v 1.3 2005/05/25 13:10:09
14      ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818      ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
# Line 23  contains Line 23  contains
23      USE netcdf, ONLY : nf90_clobber, nf90_global, nf90_float      USE netcdf, ONLY : nf90_clobber, nf90_global, nf90_float
24    
25      CHARACTER(len=*) fichnom      CHARACTER(len=*) fichnom
26      REAL, INTENT (IN) :: rlat(klon), rlon(klon)      REAL, INTENT(IN):: rlat(klon), rlon(klon)
27      REAL :: tsol(klon, nbsrf)      REAL :: tsol(klon, nbsrf)
28      REAL :: tsoil(klon, nsoilmx, nbsrf)      REAL :: tsoil(klon, nsoilmx, nbsrf)
29    
# Line 36  contains Line 36  contains
36      REAL :: alblw(klon, nbsrf)      REAL :: alblw(klon, nbsrf)
37    
38      REAL :: evap(klon, nbsrf)      REAL :: evap(klon, nbsrf)
39      REAL :: rain_fall(klon)      REAL, INTENT(IN):: rain_fall(klon)
40      REAL :: snow_fall(klon)      REAL :: snow_fall(klon)
41      REAL :: solsw(klon)      REAL :: solsw(klon)
42      REAL :: sollw(klon)      REAL :: sollw(klon)
# Line 128  contains Line 128  contains
128      call nf95_enddef(nid)      call nf95_enddef(nid)
129      call nf95_put_var(nid, nvarid, pctsrf(:, is_sic))      call nf95_put_var(nid, nvarid, pctsrf(:, is_sic))
130    
   
   
131      DO nsrf = 1, nbsrf      DO nsrf = 1, nbsrf
132         IF (nsrf<=99) THEN         IF (nsrf<=99) THEN
133            WRITE (str2, '(i2.2)') nsrf            WRITE (str2, '(i2.2)') nsrf
# Line 245  contains Line 243  contains
243         call nf95_put_var(nid, nvarid, evap(:, nsrf))         call nf95_put_var(nid, nvarid, evap(:, nsrf))
244      END DO      END DO
245    
   
246      DO nsrf = 1, nbsrf      DO nsrf = 1, nbsrf
247         IF (nsrf<=99) THEN         IF (nsrf<=99) THEN
248            WRITE (str2, '(i2.2)') nsrf            WRITE (str2, '(i2.2)') nsrf
# Line 261  contains Line 258  contains
258         call nf95_put_var(nid, nvarid, snow(:, nsrf))         call nf95_put_var(nid, nvarid, snow(:, nsrf))
259      END DO      END DO
260    
   
261      call nf95_redef(nid)      call nf95_redef(nid)
262      call nf95_def_var(nid, 'RADS', nf90_float, idim2, nvarid)      call nf95_def_var(nid, 'RADS', nf90_float, idim2, nvarid)
263      call nf95_put_att(nid, nvarid, 'title', &      call nf95_put_att(nid, nvarid, 'title', &
# Line 404  contains Line 400  contains
400      call nf95_enddef(nid)      call nf95_enddef(nid)
401      call nf95_put_var(nid, nvarid, run_off_lic_0)      call nf95_put_var(nid, nvarid, run_off_lic_0)
402    
   
403      call nf95_close(nid)      call nf95_close(nid)
404    
405    END SUBROUTINE phyredem    END SUBROUTINE phyredem
Legend:
Removed from v.43  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21