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

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

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

revision 43 by guez, Fri Apr 8 12:43:31 2011 UTC revision 53 by guez, Fri Oct 7 13:11:58 2011 UTC
# Line 22  MODULE interface_surf Line 22  MODULE interface_surf
22    
23    REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: tmp_rriv, tmp_rcoa, tmp_rlic    REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: tmp_rriv, tmp_rcoa, tmp_rlic
24    ! pour simuler la fonte des glaciers antarctiques    ! pour simuler la fonte des glaciers antarctiques
   REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: coeff_iceberg  
   real, save :: surf_maille  
   real, save :: cte_flux_iceberg = 6.3e7  
   integer, save :: num_antarctic = 1  
25    REAL, save :: tau_calv    REAL, save :: tau_calv
26    
27  CONTAINS  CONTAINS
28    
29    SUBROUTINE interfsurf_hq(itime, dtime, date0, jour, rmu0,  &    SUBROUTINE interfsurf_hq(itime, dtime, date0, jour, rmu0, klon, iim, jjm, &
30         klon, iim, jjm, nisurf, knon, knindex, pctsrf,  &         nisurf, knon, knindex, pctsrf, rlon, rlat, cufi, cvfi, debut, lafin, &
31         rlon, rlat, cufi, cvfi,  &         ok_veget, soil_model, nsoilmx, tsoil, qsol, zlev, u1_lay, v1_lay, &
32         debut, lafin, ok_veget, soil_model, nsoilmx, tsoil, qsol,  &         temp_air, spechum, epot_air, ccanopy, tq_cdrag, petAcoef, peqAcoef, &
33         zlev, u1_lay, v1_lay, temp_air, spechum, epot_air, ccanopy, &         petBcoef, peqBcoef, precip_rain, precip_snow, sollw, sollwdown, swnet, &
34         tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef,  &         swdown, fder, taux, tauy, windsp, rugos, rugoro, albedo, snow, qsurf, &
35         precip_rain, precip_snow, sollw, sollwdown, swnet, swdown,  &         tsurf, p1lay, ps, radsol, ocean, npas, nexca, zmasq, evap, fluxsens, &
36         fder, taux, tauy,  &         fluxlat, dflux_l, dflux_s, tsol_rad, tsurf_new, alb_new, alblw, &
37         windsp,  &         emis_new, z0_new, pctsrf_new, agesno, fqcalving, ffonte, &
38         rugos, rugoro,  &         run_off_lic_0, flux_o, flux_g, tslab, seaice)
        albedo, snow, qsurf,  &  
        tsurf, p1lay, ps, radsol,  &  
        ocean, npas, nexca, zmasq,  &  
        evap, fluxsens, fluxlat, dflux_l, dflux_s, &  
        tsol_rad, tsurf_new, alb_new, alblw, emis_new,  &  
        z0_new, pctsrf_new, agesno, fqcalving, ffonte, run_off_lic_0, &  
        flux_o, flux_g, tslab, seaice)  
39    
40      ! Cette routine sert d'aiguillage entre l'atmosphère et la surface      ! Cette routine sert d'aiguillage entre l'atmosphère et la surface
41      ! en général (sols continentaux, océans, glaces) pour les flux de      ! en général (sols continentaux, océans, glaces) pour les flux de
Legend:
Removed from v.43  
changed lines
  Added in v.53
  ViewVC Help
Powered by ViewVC 1.1.21