LMDZ
iotd_fin.F90
Go to the documentation of this file.
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
subroutine iotd_fin
Definition: iotd_fin.F90:2
nid INTEGER nid
Definition: iotd.h:16