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 |
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 |
|
|
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) |