source: LMDZ5/trunk/libf/bibio/iotd_fin.F90 @ 2100

Last change on this file since 2100 was 1980, checked in by fhourdin, 11 years ago

Interface legere de sorties netcdf. Peut etre utilisee hors de LMDZ
Light interface for netcdf. Can be used outside LMDZ

  • 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.