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

Diff of /trunk/phylmd/clqh.f

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

revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC
# Line 13  contains Line 13  contains
13         z0_new, flux_t, flux_q, dflux_s, dflux_l, fqcalving, ffonte, &         z0_new, flux_t, flux_q, dflux_s, dflux_l, fqcalving, ffonte, &
14         run_off_lic_0, flux_o, flux_g, tslab, seaice)         run_off_lic_0, flux_o, flux_g, tslab, seaice)
15    
16      ! Author: Z.X. Li (LMD/CNRS)!      ! Author: Z. X. Li (LMD/CNRS)
17      ! Date: 1993/08/18      ! Date: 1993/08/18
18      ! Objet : diffusion verticale de "q" et de "h"      ! Objet : diffusion verticale de "q" et de "h"
19    
# Line 28  contains Line 28  contains
28      ! Arguments:      ! Arguments:
29      INTEGER knon      INTEGER knon
30      REAL, intent(in):: dtime              ! intervalle du temps (s)      REAL, intent(in):: dtime              ! intervalle du temps (s)
31      real date0      real, intent(in):: date0
32      REAL u1lay(klon)        ! vitesse u de la 1ere couche (m/s)      REAL u1lay(klon)        ! vitesse u de la 1ere couche (m/s)
33      REAL v1lay(klon)        ! vitesse v de la 1ere couche (m/s)      REAL v1lay(klon)        ! vitesse v de la 1ere couche (m/s)
34      REAL coef(klon, klev)    ! le coefficient d'echange (m**2/s)      REAL coef(klon, klev)    ! le coefficient d'echange (m**2/s)
# Line 51  contains Line 51  contains
51      REAL agesno(klon)      REAL agesno(klon)
52      REAL rugoro(klon)      REAL rugoro(klon)
53      REAL run_off_lic_0(klon)! runof glacier au pas de temps precedent      REAL run_off_lic_0(klon)! runof glacier au pas de temps precedent
54      integer jour            ! jour de l'annee en cours      integer, intent(in):: jour            ! jour de l'annee en cours
55      real rmu0(klon)         ! cosinus de l'angle solaire zenithal      real, intent(in):: rmu0(klon)         ! cosinus de l'angle solaire zenithal
56      real rugos(klon)        ! rugosite      real rugos(klon)        ! rugosite
57      integer knindex(klon)      integer knindex(klon)
58      real pctsrf(klon, nbsrf)      real, intent(in):: pctsrf(klon, nbsrf)
59      real, intent(in):: rlon(klon), rlat(klon)      real, intent(in):: rlon(klon), rlat(klon)
60      real cufi(klon), cvfi(klon)      real cufi(klon), cvfi(klon)
61      logical ok_veget      logical ok_veget
Legend:
Removed from v.54  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21