source: LMDZ5/branches/IPSLCM6.0.10/libf/phylmd/iotd_fin.F90 @ 5446

Last change on this file since 5446 was 2298, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2237:2291 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.