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

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

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

revision 304 by guez, Thu Aug 2 14:27:11 2018 UTC revision 305 by guez, Tue Sep 11 11:08:38 2018 UTC
# Line 6  module albsno_m Line 6  module albsno_m
6    
7  contains  contains
8    
9    SUBROUTINE albsno(agesno, alb_neig, precip_snow)    SUBROUTINE albsno(agesno, alb_neig, snow_fall)
10    
11      use comconst, only: dtphys      use comconst, only: dtphys
12    
13      REAL, intent(inout):: agesno(:) ! (knon)      REAL, intent(inout):: agesno(:) ! (knon)
14      real, intent(out):: alb_neig(:) ! (knon)      real, intent(out):: alb_neig(:) ! (knon)
15      real, intent(in):: precip_snow(:) !(knon)      real, intent(in):: snow_fall(:) !(knon)
16    
17      !------------------------------------------------------------------------      !------------------------------------------------------------------------
18    
# Line 21  contains Line 21  contains
21    
22      ! Modulation en fonction de l'\^age de la neige :      ! Modulation en fonction de l'\^age de la neige :
23      agesno = max((agesno + (1. - agesno / 50.) * dtphys / 86400.) &      agesno = max((agesno + (1. - agesno / 50.) * dtphys / 86400.) &
24           * EXP(- MAX(0., precip_snow) * dtphys / 0.3), 0.)           * EXP(- MAX(0., snow_fall) * dtphys / 0.3), 0.)
25    
26    END SUBROUTINE albsno    END SUBROUTINE albsno
27    
Legend:
Removed from v.304  
changed lines
  Added in v.305
  ViewVC Help
Powered by ViewVC 1.1.21