/[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 104 by guez, Thu Sep 4 10:05:52 2014 UTC revision 106 by guez, Tue Sep 9 12:54:30 2014 UTC
# Line 36  contains Line 36  contains
36    
37      REAL t(klon, klev)       ! temperature (K)      REAL t(klon, klev)       ! temperature (K)
38      REAL q(klon, klev)       ! humidite specifique (kg/kg)      REAL q(klon, klev)       ! humidite specifique (kg/kg)
39      REAL ts(klon)           ! temperature du sol (K)      REAL, intent(in):: ts(klon) ! temperature du sol (K)
40      REAL evap(klon)         ! evaporation au sol      REAL evap(klon)         ! evaporation au sol
41      REAL paprs(klon, klev+1) ! pression a inter-couche (Pa)      REAL paprs(klon, klev+1) ! pression a inter-couche (Pa)
42      REAL pplay(klon, klev)   ! pression au milieu de couche (Pa)      REAL pplay(klon, klev)   ! pression au milieu de couche (Pa)
# Line 59  contains Line 59  contains
59      integer, intent(in):: jour            ! jour de l'annee en cours      integer, intent(in):: jour            ! jour de l'annee en cours
60      real, intent(in):: rmu0(klon)         ! cosinus de l'angle solaire zenithal      real, intent(in):: rmu0(klon)         ! cosinus de l'angle solaire zenithal
61      real rugos(klon)        ! rugosite      real rugos(klon)        ! rugosite
62      integer, intent(in):: knindex(klon)      integer, intent(in):: knindex(:) ! (knon)
63      real, intent(in):: pctsrf(klon, nbsrf)      real, intent(in):: pctsrf(klon, nbsrf)
64      real, intent(in):: rlat(klon)      real, intent(in):: rlat(klon)
65      REAL, intent(in):: co2_ppm            ! taux CO2 atmosphere      REAL, intent(in):: co2_ppm            ! taux CO2 atmosphere
66    
67      REAL d_t(klon, klev)     ! incrementation de "t"      REAL d_t(klon, klev)     ! incrementation de "t"
68      REAL d_q(klon, klev)     ! incrementation de "q"      REAL d_q(klon, klev)     ! incrementation de "q"
69      REAL d_ts(klon)         ! incrementation de "ts"      REAL, intent(out):: d_ts(:) ! (knon) incrementation de "ts"
70      REAL flux_t(klon, klev)  ! (diagnostic) flux de la chaleur      REAL flux_t(klon, klev)  ! (diagnostic) flux de la chaleur
71      !                               sensible, flux de Cp*T, positif vers      !                               sensible, flux de Cp*T, positif vers
72      !                               le bas: j/(m**2 s) c.a.d.: W/m2      !                               le bas: j/(m**2 s) c.a.d.: W/m2
# Line 128  contains Line 128  contains
128    
129      ! Parametres de sortie      ! Parametres de sortie
130      real fluxsens(klon), fluxlat(klon)      real fluxsens(klon), fluxlat(klon)
131      real tsurf_new(klon), alb_new(klon)      real tsurf_new(knon), alb_new(klon)
132      real z0_new(klon)      real z0_new(klon)
133      real pctsrf_new(klon, nbsrf)      real pctsrf_new(klon, nbsrf)
134      ! JLD      ! JLD
# Line 280  contains Line 280  contains
280      ccanopy = co2_ppm      ccanopy = co2_ppm
281    
282      CALL interfsurf_hq(itime, dtime, jour, rmu0, nisurf, knon, knindex, &      CALL interfsurf_hq(itime, dtime, jour, rmu0, nisurf, knon, knindex, &
283           pctsrf, rlat, debut, nsoilmx, tsoil, qsol, u1lay, v1lay, &           pctsrf, rlat, debut, nsoilmx, tsoil, qsol, u1lay, v1lay, temp_air, &
284           temp_air, spechum, tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &           spechum, tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
285           precip_rain, precip_snow, fder, rugos, rugoro, snow, qsurf, ts(:knon), &           precip_rain, precip_snow, fder, rugos, rugoro, snow, qsurf, &
286           p1lay, psref, radsol, evap, fluxsens, fluxlat, dflux_l, dflux_s, &           ts(:knon), p1lay, psref, radsol, evap, fluxsens, fluxlat, dflux_l, &
287           tsurf_new(:knon), alb_new, alblw, z0_new, pctsrf_new, agesno, fqcalving, &           dflux_s, tsurf_new, alb_new, alblw, z0_new, pctsrf_new, agesno, &
288           ffonte, run_off_lic_0, flux_o, flux_g)           fqcalving, ffonte, run_off_lic_0, flux_o, flux_g)
289    
290      do i = 1, knon      do i = 1, knon
291         flux_t(i, 1) = fluxsens(i)         flux_t(i, 1) = fluxsens(i)
Legend:
Removed from v.104  
changed lines
  Added in v.106
  ViewVC Help
Powered by ViewVC 1.1.21