Parent Directory | Revision Log | 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' |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |