source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/iotd_fin.F90 @ 5420

Last change on this file since 5420 was 3102, checked in by oboucher, 7 years ago

Removing x permission from these files

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.