source:
branches/iLoveclim/SOURCES/Old-sources/lastoutput-0.2.f
@
406
Last change on this file since 406 was 77, checked in by dumas, 8 years ago | |
---|---|
File size: 301 bytes |
Rev | Line | |
---|---|---|
[4] | 1 | !> \file lastoutput-0.2.f |
2 | !! Sortie au dernier pas de temps | |
3 | !< | |
4 | ||
5 | !> SUBROUTINE: LASTOUTPUT | |
6 | !! Calcul l'accumulation de glace anuelle | |
7 | !! \author ... | |
8 | !! \date ... | |
9 | !< | |
10 | subroutine LASTOUTPUT() | |
11 | ||
12 | ||
13 | ||
14 | write(6,*) | |
15 | write(6,*) '------------ THE END... ----------' | |
16 | write(6,*) | |
17 | ||
18 | end |
Note: See TracBrowser
for help on using the repository browser.