source:
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/iotd_fin.F90
@
5411
Last change on this file since 5411 was 4727, checked in by , 14 months ago | |
---|---|
File size: 461 bytes |
Line | |
---|---|
1 | SUBROUTINE iotd_fin |
2 | IMPLICIT NONE |
3 | |
4 | !======================================================================= |
5 | ! |
6 | ! Auteur: F. Hourdin |
7 | ! ------- |
8 | ! |
9 | ! Objet: |
10 | ! ------ |
11 | ! Light interface for netcdf outputs. can be used outside LMDZ |
12 | ! |
13 | !======================================================================= |
14 | |
15 | |
16 | INCLUDE "netcdf.inc" |
17 | INCLUDE "iotd.h" |
18 | integer ierr |
19 | |
20 | ! Arguments: |
21 | ! ---------- |
22 | |
23 | ierr=NF_close(nid) |
24 | |
25 | END |
Note: See TracBrowser
for help on using the repository browser.