/[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 116 by guez, Thu Dec 4 16:35:03 2014 UTC revision 130 by guez, Tue Feb 24 15:43:51 2015 UTC
# Line 19  contains Line 19  contains
19      ! Laurent Fairhead, February 2000      ! Laurent Fairhead, February 2000
20    
21      USE abort_gcm_m, ONLY: abort_gcm      USE abort_gcm_m, ONLY: abort_gcm
22        use alboc_m, only: alboc
23      USE albsno_m, ONLY: albsno      USE albsno_m, ONLY: albsno
24      use calbeta_m, only: calbeta      use calbeta_m, only: calbeta
25      USE calcul_fluxs_m, ONLY: calcul_fluxs      USE calcul_fluxs_m, ONLY: calcul_fluxs
# Line 275  contains Line 276  contains
276    
277         ! calcul albedo         ! calcul albedo
278         if (minval(rmu0) == maxval(rmu0) .and. minval(rmu0) == -999.999) then         if (minval(rmu0) == maxval(rmu0) .and. minval(rmu0) == -999.999) then
279            CALL alboc(FLOAT(jour), rlat, alb_eau)            CALL alboc(jour, rlat, alb_eau)
280         else ! cycle diurne         else ! cycle diurne
281            CALL alboc_cd(rmu0, alb_eau)            CALL alboc_cd(rmu0, alb_eau)
282         endif         endif
Legend:
Removed from v.116  
changed lines
  Added in v.130
  ViewVC Help
Powered by ViewVC 1.1.21