source: LMDZ5/trunk/libf/phymar/iotd_fin.F90 @ 3847

Last change on this file since 3847 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 672 bytes
RevLine 
[2089]1      SUBROUTINE iotd_fin
2      IMPLICIT NONE
3
4!=======================================================================
5!
6!   Auteur:  L. Fairhead  ,  P. Le Van, Y. Wanherdrick, F. Forget
7!   -------
8!
9!   Objet:
10!   ------
11!
12!   'Initialize' the diagfi.nc file: write down dimensions as well
13!   as time-independent fields (e.g: geopotential, mesh area, ...)
14!
15!=======================================================================
16!-----------------------------------------------------------------------
17!   Declarations:
18!   -------------
19
20#include "netcdf.inc"
21#include "iotd.h"
22      integer ierr
23
24!   Arguments:
25!   ----------
26
27      ierr=NF_close(nid)
28
29      END
Note: See TracBrowser for help on using the repository browser.