/[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

revision 99 by guez, Wed Jul 2 18:39:15 2014 UTC revision 101 by guez, Mon Jul 7 17:45:21 2014 UTC
# 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.99  
changed lines
  Added in v.101
  ViewVC Help
Powered by ViewVC 1.1.21