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

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

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

trunk/libf/phylmd/Interface_surf/calcul_fluxs.f90 revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC trunk/phylmd/Interface_surf/calcul_fluxs.f revision 101 by guez, Mon Jul 7 17:45:21 2014 UTC
# Line 11  contains Line 11  contains
11         petAcoef, peqAcoef, petBcoef, peqBcoef,  &         petAcoef, peqAcoef, petBcoef, peqBcoef,  &
12         tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l)         tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l)
13    
14      ! Cette routine calcule les fluxs en h et q a l'interface et eventuellement      ! Cette routine calcule les fluxs en h et q à l'interface et une
15      ! une temperature de surface (au cas ou ok_veget = false)      ! température de surface.
16    
17      ! L. Fairhead 4/2000      ! L. Fairhead 4/2000
18    
# Line 98  contains Line 98  contains
98         !!CALL flush(6)         !!CALL flush(6)
99      ENDIF      ENDIF
100    
101      if (size(coastalflow) /= knon .AND. nisurf == is_ter) then      if (size(run_off) /= knon .AND. nisurf == is_ter) then
102         write(*, *)'Bizarre, le nombre de points continentaux'         write(*, *)'Bizarre, le nombre de points continentaux'
103         write(*, *)'a change entre deux appels. J''arrete ...'         write(*, *)'a change entre deux appels. J''arrete ...'
104         abort_message='Pb run_off'         abort_message='Pb run_off'
Legend:
Removed from v.54  
changed lines
  Added in v.101
  ViewVC Help
Powered by ViewVC 1.1.21