source:
branches/iLoveclim/SOURCES/lastoutput-0.2.f
@
40
Last change on this file since 40 was 4, checked in by dumas, 10 years ago | |
---|---|
File size: 301 bytes |
Line | |
---|---|
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.