/[lmdze]/trunk/phylmd/Interface_surf/pbl_surface.f
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/pbl_surface.f

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

revision 298 by guez, Thu Jul 26 16:45:51 2018 UTC revision 300 by guez, Thu Aug 2 15:55:01 2018 UTC
# Line 125  contains Line 125  contains
125    
126      real ffonte(klon, nbsrf)      real ffonte(klon, nbsrf)
127      ! ffonte----Flux thermique utilise pour fondre la neige      ! ffonte----Flux thermique utilise pour fondre la neige
128      REAL run_off_lic_0(klon)      REAL, intent(inout):: run_off_lic_0(:) ! (klon)
129    
130      ! Local:      ! Local:
131    
# Line 341  contains Line 341  contains
341                 y_flux_v(:knon))                 y_flux_v(:knon))
342    
343            CALL clqh(julien, firstcal, nsrf, ni(:knon), ytsoil(:knon, :), &            CALL clqh(julien, firstcal, nsrf, ni(:knon), ytsoil(:knon, :), &
344                 yqsol(:knon), mu0, yrugos(:knon), yrugoro(:knon), yu(:knon, 1), &                 yqsol(:knon), mu0(ni(:knon)), yrugos(:knon), yrugoro(:knon), &
345                 yv(:knon, 1), ycoefh(:knon, :), ycdragh(:knon), yt(:knon, :), &                 yu(:knon, 1), yv(:knon, 1), ycoefh(:knon, :), ycdragh(:knon), &
346                 yq(:knon, :), yts(:knon), ypaprs(:knon, :), ypplay(:knon, :), &                 yt(:knon, :), yq(:knon, :), yts(:knon), ypaprs(:knon, :), &
347                 ydelp(:knon, :), yrads(:knon), yalb(:knon), snow(:knon), &                 ypplay(:knon, :), ydelp(:knon, :), yrads(:knon), yalb(:knon), &
348                 yqsurf(:knon), yrain_f, ysnow_f, yfluxlat(:knon), &                 snow(:knon), yqsurf(:knon), yrain_f(:knon), ysnow_f(:knon), &
349                 pctsrf_new_sic, yagesno(:knon), y_d_t(:knon, :), &                 yfluxlat(:knon), pctsrf_new_sic(ni(:knon)), yagesno(:knon), &
350                 y_d_q(:knon, :), y_d_ts(:knon), yz0_new(:knon), &                 y_d_t(:knon, :), y_d_q(:knon, :), y_d_ts(:knon), &
351                 y_flux_t(:knon), y_flux_q(:knon), y_dflux_t(:knon), &                 yz0_new(:knon), y_flux_t(:knon), y_flux_q(:knon), &
352                 y_dflux_q(:knon), y_fqcalving(:knon), y_ffonte, y_run_off_lic_0)                 y_dflux_t(:knon), y_dflux_q(:knon), y_fqcalving(:knon), &
353                   y_ffonte(:knon), y_run_off_lic_0(:knon))
354    
355            ! calculer la longueur de rugosite sur ocean            ! calculer la longueur de rugosite sur ocean
356    
Legend:
Removed from v.298  
changed lines
  Added in v.300
  ViewVC Help
Powered by ViewVC 1.1.21