source: LMDZ6/trunk/libf/phylmd/iotd_fin.f90 @ 5274

Last change on this file since 5274 was 5270, checked in by abarral, 8 months ago

Replace F77 netcdf library by F90 netcdf library

File size: 469 bytes
RevLine 
[5084]1      SUBROUTINE iotd_fin
[5270]2      USE netcdf, ONLY: nf90_close
[5084]3      IMPLICIT NONE
[1980]4
[5084]5!=======================================================================
6!
7!   Auteur:  F. Hourdin
8!   -------
9!
10!   Objet:
11!   ------
12!   Light interface for netcdf outputs. can be used outside LMDZ
13!
14!=======================================================================
15      INCLUDE "iotd.h"
16      integer ierr
[1980]17
[5084]18!   Arguments:
19!   ----------
[1980]20
[5270]21      ierr=nf90_close(nid)
[1980]22
[5084]23      END
Note: See TracBrowser for help on using the repository browser.