/[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 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# Line 1  Line 1 
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
# Line 19  SUBROUTINE phyredem(fichnom,radpas,rlat, Line 19  SUBROUTINE phyredem(fichnom,radpas,rlat,
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)
# Line 42  SUBROUTINE phyredem(fichnom,radpas,rlat, Line 41  SUBROUTINE phyredem(fichnom,radpas,rlat,
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)
# Line 358  SUBROUTINE phyredem(fichnom,radpas,rlat, Line 356  SUBROUTINE phyredem(fichnom,radpas,rlat,
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)
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21