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

Last change on this file since 5080 was 5075, checked in by abarral, 4 months ago

[continued & end] replace netcdf by lmdz_netcdf.F90 wrapper
"use netcdf" is now only used in lmdz_netcdf.F90 (except ecrad and obsolete/)
<include "netcdf.inc"> is now likewise only used in lmdz_netcdf.F90.

systematically specify explicitely <USE lmdz_netcdf, ONLY:> (probably left some missing, to correct later on)

Further replacement of nf_put_* by nf90_put_* (same for _get_)

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