/[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 208 by guez, Wed Dec 7 16:44:53 2016 UTC revision 209 by guez, Wed Dec 7 17:37:21 2016 UTC
# Line 4  module clqh_m Line 4  module clqh_m
4    
5  contains  contains
6    
7    SUBROUTINE clqh(dtime, jour, debut, rlat, nisurf, knindex, tsoil, qsol, &    SUBROUTINE clqh(dtime, jour, debut, nisurf, knindex, tsoil, qsol, rmu0, &
8         rmu0, rugos, rugoro, u1lay, v1lay, coef, t, q, ts, paprs, pplay, delp, &         rugos, rugoro, u1lay, v1lay, coef, t, q, ts, paprs, pplay, delp, &
9         radsol, albedo, snow, qsurf, precip_rain, precip_snow, fder, fluxlat, &         radsol, albedo, snow, qsurf, precip_rain, precip_snow, fder, fluxlat, &
10         pctsrf_new_sic, agesno, d_t, d_q, d_ts, z0_new, flux_t, flux_q, &         pctsrf_new_sic, agesno, d_t, d_q, d_ts, z0_new, flux_t, flux_q, &
11         dflux_s, dflux_l, fqcalving, ffonte, run_off_lic_0)         dflux_s, dflux_l, fqcalving, ffonte, run_off_lic_0)
# Line 22  contains Line 22  contains
22      REAL, intent(in):: dtime ! intervalle du temps (s)      REAL, intent(in):: dtime ! intervalle du temps (s)
23      integer, intent(in):: jour ! jour de l'annee en cours      integer, intent(in):: jour ! jour de l'annee en cours
24      logical, intent(in):: debut      logical, intent(in):: debut
     real, intent(in):: rlat(klon)  
25      integer, intent(in):: nisurf      integer, intent(in):: nisurf
26      integer, intent(in):: knindex(:) ! (knon)      integer, intent(in):: knindex(:) ! (knon)
27      REAL, intent(inout):: tsoil(:, :) ! (knon, nsoilmx)      REAL, intent(inout):: tsoil(:, :) ! (knon, nsoilmx)
# Line 240  contains Line 239  contains
239      spechum(1:knon)=q(1:knon, 1)      spechum(1:knon)=q(1:knon, 1)
240      p1lay(1:knon) = pplay(1:knon, 1)      p1lay(1:knon) = pplay(1:knon, 1)
241    
242      CALL interfsurf_hq(dtime, jour, rmu0, nisurf, knon, knindex, rlat, debut, &      CALL interfsurf_hq(dtime, jour, rmu0, nisurf, knon, knindex, debut, &
243           tsoil, qsol, u1lay, v1lay, temp_air, spechum, tq_cdrag, petAcoef, &           tsoil, qsol, u1lay, v1lay, temp_air, spechum, tq_cdrag, petAcoef, &
244           peqAcoef, petBcoef, peqBcoef, precip_rain, precip_snow, fder, rugos, &           peqAcoef, petBcoef, peqBcoef, precip_rain, precip_snow, fder, rugos, &
245           rugoro, snow, qsurf, ts, p1lay, psref, radsol, evap, flux_t, &           rugoro, snow, qsurf, ts, p1lay, psref, radsol, evap, flux_t, &
Legend:
Removed from v.208  
changed lines
  Added in v.209
  ViewVC Help
Powered by ViewVC 1.1.21