source: LMDZ5/branches/LMDZ6_rc0/libf/bibio/iotd_fin.F90 @ 4400

Last change on this file since 4400 was 1999, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1920:1997 into testing branch

  • Property svn:executable set to *
File size: 451 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.