/[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 125 by guez, Fri Feb 6 15:00:28 2015 UTC revision 130 by guez, Tue Feb 24 15:43:51 2015 UTC
# Line 276  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.125  
changed lines
  Added in v.130
  ViewVC Help
Powered by ViewVC 1.1.21