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

Diff of /trunk/phylmd/phyredem.f

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

revision 61 by guez, Tue Dec 6 15:07:04 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)
Legend:
Removed from v.61  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21