source:
LMDZ6/trunk/libf/phylmd/iotd_fin.f90
@
5274
Last change on this file since 5274 was 5270, checked in by , 8 months ago | |
---|---|
File size: 469 bytes |
Rev | Line | |
---|---|---|
[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.