source: LMDZ6/trunk/libf/phylmd/iotd_fin.F90 @ 5166

Last change on this file since 5166 was 5084, checked in by Laurent Fairhead, 4 months ago

Reverting to r4065. Updating fortran standard broke too much stuff. Will do it by smaller chunks
AB, LF
File size: 461 bytes
RevLine 
[5084]1      SUBROUTINE iotd_fin
2      IMPLICIT NONE
[1980]3
[5084]4!=======================================================================
5!
6!   Auteur:  F. Hourdin
7!   -------
8!
9!   Objet:
10!   ------
11!   Light interface for netcdf outputs. can be used outside LMDZ
12!
13!=======================================================================
[1980]14
15
[5084]16      INCLUDE "netcdf.inc"
17      INCLUDE "iotd.h"
18      integer ierr
[1980]19
[5084]20!   Arguments:
21!   ----------
[1980]22
[5084]23      ierr=NF_close(nid)
[1980]24
[5084]25      END
Note: See TracBrowser for help on using the repository browser.