/[lmdze]/trunk/Sources/phylmd/Interface_surf/interfsurf_hq.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Interface_surf/interfsurf_hq.f

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

revision 202 by guez, Wed Jun 8 12:23:41 2016 UTC revision 206 by guez, Tue Aug 30 12:52:46 2016 UTC
# Line 8  contains Line 8  contains
8         debut, nsoilmx, tsoil, qsol, u1_lay, v1_lay, temp_air, spechum, &         debut, nsoilmx, tsoil, qsol, u1_lay, v1_lay, temp_air, spechum, &
9         tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, precip_rain, &         tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, precip_rain, &
10         precip_snow, fder, rugos, rugoro, snow, qsurf, tsurf, p1lay, ps, &         precip_snow, fder, rugos, rugoro, snow, qsurf, tsurf, p1lay, ps, &
11         radsol, evap, fluxsens, fluxlat, dflux_l, dflux_s, tsurf_new, albedo, &         radsol, evap, flux_t, fluxlat, dflux_l, dflux_s, tsurf_new, albedo, &
12         z0_new, pctsrf_new_sic, agesno, fqcalving, ffonte, run_off_lic_0)         z0_new, pctsrf_new_sic, agesno, fqcalving, ffonte, run_off_lic_0)
13    
14      ! Cette routine sert d'aiguillage entre l'atmosph\`ere et la surface      ! Cette routine sert d'aiguillage entre l'atmosph\`ere et la surface
# Line 87  contains Line 87  contains
87      REAL, DIMENSION(klon), INTENT(INOUT):: radsol      REAL, DIMENSION(klon), INTENT(INOUT):: radsol
88      ! rayonnement net au sol (LW + SW)      ! rayonnement net au sol (LW + SW)
89    
90      real, intent(INOUT):: evap(klon) ! evaporation totale      real, intent(OUT):: evap(:) ! (knon) evaporation totale
91      real, dimension(klon), intent(OUT):: fluxsens, fluxlat      real, intent(OUT):: flux_t(:) ! (knon) flux de chaleur sensible
92      ! fluxsens flux de chaleur sensible      real, dimension(klon), intent(OUT):: fluxlat ! flux de chaleur latente
     ! fluxlat flux de chaleur latente  
93      real, dimension(klon), intent(OUT):: dflux_l, dflux_s      real, dimension(klon), intent(OUT):: dflux_l, dflux_s
94      real, intent(OUT):: tsurf_new(knon) ! temp\'erature au sol      real, intent(OUT):: tsurf_new(knon) ! temp\'erature au sol
95      real, intent(OUT):: albedo(:) ! (knon) albedo      real, intent(OUT):: albedo(:) ! (knon) albedo
# Line 189  contains Line 188  contains
188              beta(:knon), tq_cdrag(:knon), ps(:knon), qsurf(:knon), &              beta(:knon), tq_cdrag(:knon), ps(:knon), qsurf(:knon), &
189              radsol(:knon), dif_grnd(:knon), temp_air(:knon), spechum(:knon), &              radsol(:knon), dif_grnd(:knon), temp_air(:knon), spechum(:knon), &
190              u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), peqAcoef(:knon), &              u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), peqAcoef(:knon), &
191              petBcoef(:knon), peqBcoef(:knon), tsurf_new, evap(:knon), &              petBcoef(:knon), peqBcoef(:knon), tsurf_new, evap, &
192              fluxlat(:knon), fluxsens(:knon), dflux_s(:knon), dflux_l(:knon))              fluxlat(:knon), flux_t, dflux_s(:knon), dflux_l(:knon))
193    
194         CALL fonte_neige(is_ter, dtime, tsurf, p1lay(:knon), beta(:knon), &         CALL fonte_neige(is_ter, dtime, tsurf, p1lay(:knon), beta(:knon), &
195              tq_cdrag(:knon), ps(:knon), precip_rain(:knon), &              tq_cdrag(:knon), ps(:knon), precip_rain(:knon), &
196              precip_snow(:knon), snow(:knon), qsol(:knon), temp_air(:knon), &              precip_snow(:knon), snow(:knon), qsol(:knon), temp_air(:knon), &
197              spechum(:knon), u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), &              spechum(:knon), u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), &
198              peqAcoef(:knon), petBcoef(:knon), peqBcoef(:knon), tsurf_new, &              peqAcoef(:knon), petBcoef(:knon), peqBcoef(:knon), tsurf_new, &
199              evap(:knon), fqcalving(:knon), ffonte(:knon), run_off_lic_0(:knon))              evap, fqcalving(:knon), ffonte(:knon), run_off_lic_0(:knon))
200    
201         call albsno(dtime, agesno, alb_neig, precip_snow(:knon))         call albsno(dtime, agesno, alb_neig, precip_snow(:knon))
202         where (snow(:knon) < 0.0001) agesno = 0.         where (snow(:knon) < 0.0001) agesno = 0.
# Line 217  contains Line 216  contains
216              beta(:knon), tq_cdrag(:knon), ps(:knon), qsurf(:knon), &              beta(:knon), tq_cdrag(:knon), ps(:knon), qsurf(:knon), &
217              radsol(:knon), dif_grnd(:knon), temp_air(:knon), spechum(:knon), &              radsol(:knon), dif_grnd(:knon), temp_air(:knon), spechum(:knon), &
218              u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), peqAcoef(:knon), &              u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), peqAcoef(:knon), &
219              petBcoef(:knon), peqBcoef(:knon), tsurf_new, evap(:knon), &              petBcoef(:knon), peqBcoef(:knon), tsurf_new, evap, &
220              fluxlat(:knon), fluxsens(:knon), dflux_s(:knon), dflux_l(:knon))              fluxlat(:knon), flux_t, dflux_s(:knon), dflux_l(:knon))
221         fder = fder + dflux_s + dflux_l         fder = fder + dflux_s + dflux_l
222    
223         ! Compute the albedo:         ! Compute the albedo:
# Line 262  contains Line 261  contains
261              beta(:knon), tq_cdrag(:knon), ps(:knon), qsurf(:knon), &              beta(:knon), tq_cdrag(:knon), ps(:knon), qsurf(:knon), &
262              radsol(:knon), dif_grnd(:knon), temp_air(:knon), spechum(:knon), &              radsol(:knon), dif_grnd(:knon), temp_air(:knon), spechum(:knon), &
263              u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), peqAcoef(:knon), &              u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), peqAcoef(:knon), &
264              petBcoef(:knon), peqBcoef(:knon), tsurf_new, evap(:knon), &              petBcoef(:knon), peqBcoef(:knon), tsurf_new, evap, &
265              fluxlat(:knon), fluxsens(:knon), dflux_s(:knon), dflux_l(:knon))              fluxlat(:knon), flux_t, dflux_s(:knon), dflux_l(:knon))
266    
267         CALL fonte_neige(is_sic, dtime, tsurf_temp, p1lay(:knon), beta(:knon), &         CALL fonte_neige(is_sic, dtime, tsurf_temp, p1lay(:knon), beta(:knon), &
268              tq_cdrag(:knon), ps(:knon), precip_rain(:knon), &              tq_cdrag(:knon), ps(:knon), precip_rain(:knon), &
269              precip_snow(:knon), snow(:knon), qsol(:knon), temp_air(:knon), &              precip_snow(:knon), snow(:knon), qsol(:knon), temp_air(:knon), &
270              spechum(:knon), u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), &              spechum(:knon), u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), &
271              peqAcoef(:knon), petBcoef(:knon), peqBcoef(:knon), tsurf_new, &              peqAcoef(:knon), petBcoef(:knon), peqBcoef(:knon), tsurf_new, &
272              evap(:knon), fqcalving(:knon), ffonte(:knon), run_off_lic_0(:knon))              evap, fqcalving(:knon), ffonte(:knon), run_off_lic_0(:knon))
273    
274         ! Compute the albedo:         ! Compute the albedo:
275    
# Line 304  contains Line 303  contains
303              beta(:knon), tq_cdrag(:knon), ps(:knon), qsurf(:knon), &              beta(:knon), tq_cdrag(:knon), ps(:knon), qsurf(:knon), &
304              radsol(:knon), dif_grnd(:knon), temp_air(:knon), spechum(:knon), &              radsol(:knon), dif_grnd(:knon), temp_air(:knon), spechum(:knon), &
305              u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), peqAcoef(:knon), &              u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), peqAcoef(:knon), &
306              petBcoef(:knon), peqBcoef(:knon), tsurf_new, evap(:knon), &              petBcoef(:knon), peqBcoef(:knon), tsurf_new, evap, &
307              fluxlat(:knon), fluxsens(:knon), dflux_s(:knon), dflux_l(:knon))              fluxlat(:knon), flux_t, dflux_s(:knon), dflux_l(:knon))
308    
309         call fonte_neige(is_lic, dtime, tsurf, p1lay(:knon), beta(:knon), &         call fonte_neige(is_lic, dtime, tsurf, p1lay(:knon), beta(:knon), &
310              tq_cdrag(:knon), ps(:knon), precip_rain(:knon), &              tq_cdrag(:knon), ps(:knon), precip_rain(:knon), &
311              precip_snow(:knon), snow(:knon), qsol(:knon), temp_air(:knon), &              precip_snow(:knon), snow(:knon), qsol(:knon), temp_air(:knon), &
312              spechum(:knon), u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), &              spechum(:knon), u1_lay(:knon), v1_lay(:knon), petAcoef(:knon), &
313              peqAcoef(:knon), petBcoef(:knon), peqBcoef(:knon), tsurf_new, &              peqAcoef(:knon), petBcoef(:knon), peqBcoef(:knon), tsurf_new, &
314              evap(:knon), fqcalving(:knon), ffonte(:knon), run_off_lic_0(:knon))              evap, fqcalving(:knon), ffonte(:knon), run_off_lic_0(:knon))
315    
316         ! calcul albedo         ! calcul albedo
317         CALL albsno(dtime, agesno, alb_neig, precip_snow(:knon))         CALL albsno(dtime, agesno, alb_neig, precip_snow(:knon))
Legend:
Removed from v.202  
changed lines
  Added in v.206
  ViewVC Help
Powered by ViewVC 1.1.21