source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/iotd_fin.F90 @ 4411

Last change on this file since 4411 was 3331, checked in by acozic, 6 years ago

Add modification for isotopes

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