1 |
SUBROUTINE phyredem(fichnom,radpas,rlat,rlon,pctsrf,tsol,tsoil, & |
SUBROUTINE phyredem(fichnom, rlat,rlon,pctsrf,tsol,tsoil, & |
2 |
tslab,seaice,qsurf,qsol,snow,albedo,alblw,evap,rain_fall,snow_fall, & |
tslab,seaice,qsurf,qsol,snow,albedo,alblw,evap,rain_fall,snow_fall, & |
3 |
solsw,sollw,fder,radsol,frugs,agesno,zmea,zstd,zsig,zgam,zthe,zpic, & |
solsw,sollw,fder,radsol,frugs,agesno,zmea,zstd,zsig,zgam,zthe,zpic, & |
4 |
zval,rugsrel,t_ancien,q_ancien,rnebcon,ratqs,clwcon,run_off_lic_0) |
zval, t_ancien,q_ancien,rnebcon,ratqs,clwcon,run_off_lic_0) |
5 |
|
|
6 |
! 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 |
7 |
! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818 |
! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818 |
19 |
INCLUDE 'netcdf.inc' |
INCLUDE 'netcdf.inc' |
20 |
|
|
21 |
CHARACTER(len=*) fichnom |
CHARACTER(len=*) fichnom |
|
INTEGER :: radpas |
|
22 |
REAL, INTENT (IN) :: rlat(klon), rlon(klon) |
REAL, INTENT (IN) :: rlat(klon), rlon(klon) |
23 |
REAL :: tsol(klon,nbsrf) |
REAL :: tsol(klon,nbsrf) |
24 |
REAL :: tsoil(klon,nsoilmx,nbsrf) |
REAL :: tsoil(klon,nsoilmx,nbsrf) |
41 |
REAL :: frugs(klon,nbsrf) |
REAL :: frugs(klon,nbsrf) |
42 |
REAL :: agesno(klon,nbsrf) |
REAL :: agesno(klon,nbsrf) |
43 |
REAL :: zmea(klon) |
REAL :: zmea(klon) |
44 |
REAL :: zstd(klon) |
REAL, intent(in):: zstd(klon) |
45 |
REAL :: zsig(klon) |
REAL, intent(in):: zsig(klon) |
46 |
REAL :: zgam(klon) |
REAL :: zgam(klon) |
47 |
REAL :: zthe(klon) |
REAL :: zthe(klon) |
48 |
REAL :: zpic(klon) |
REAL :: zpic(klon) |
49 |
REAL :: zval(klon) |
REAL :: zval(klon) |
|
REAL :: rugsrel(klon) |
|
50 |
REAL :: pctsrf(klon,nbsrf) |
REAL :: pctsrf(klon,nbsrf) |
51 |
REAL :: t_ancien(klon,klev), q_ancien(klon,klev) |
REAL :: t_ancien(klon,klev), q_ancien(klon,klev) |
52 |
REAL :: clwcon(klon,klev), rnebcon(klon,klev), ratqs(klon,klev) |
REAL :: clwcon(klon,klev), rnebcon(klon,klev), ratqs(klon,klev) |
356 |
ierr = nf_def_var(nid,'ZVAL',nf_float,1,idim2,nvarid) |
ierr = nf_def_var(nid,'ZVAL',nf_float,1,idim2,nvarid) |
357 |
ierr = nf_enddef(nid) |
ierr = nf_enddef(nid) |
358 |
ierr = nf_put_var_real(nid,nvarid,zval) |
ierr = nf_put_var_real(nid,nvarid,zval) |
|
ierr = nf_redef(nid) |
|
|
ierr = nf_def_var(nid,'RUGSREL',nf_float,1,idim2,nvarid) |
|
|
ierr = nf_enddef(nid) |
|
|
ierr = nf_put_var_real(nid,nvarid,rugsrel) |
|
359 |
|
|
360 |
ierr = nf_redef(nid) |
ierr = nf_redef(nid) |
361 |
ierr = nf_def_var(nid,'TANCIEN',nf_float,1,idim3,nvarid) |
ierr = nf_def_var(nid,'TANCIEN',nf_float,1,idim3,nvarid) |