source: trunk/LMDZ.UNIVERSAL/libf/phygeneric/iotd_fin.F90 @ 965

Last change on this file since 965 was 862, checked in by aslmd, 12 years ago

LMDZ.UNIVERSAL
LMDZ.GENERIC

Added calls to Frederic Hourdin's subroutines to output physical fields in parallel. This is under precompiling flags CPP_PARA.
This allows for LMDZ.UNIVERSAL users to use writediagfi with parallel computations.
These lines are not compiled by casual users of LMDZ.GENERIC (or users of LMDZ.UNIVERSAL in sequential mode).

The precompiling flag NOWRITEDIAGFI is obsolete and has been deleted.

NOTES:

  • A better cleaner method might be proposed later
  • Added subroutines

A 0 LMDZ.UNIVERSAL/libf/phygeneric/iotd_ecrit.F90
A 0 LMDZ.UNIVERSAL/libf/phygeneric/iophys.F90
A 0 LMDZ.UNIVERSAL/libf/phygeneric/iotd.h
A 0 LMDZ.UNIVERSAL/libf/phygeneric/iotd_ini.F90
A 0 LMDZ.UNIVERSAL/libf/phygeneric/iotd_fin.F90
The iotd_* subroutines are actually supposed to be put in bibio in LMDZ.COMMON
This will be done later once agreed in the team
File size: 721 bytes
Line 
1      SUBROUTINE iotd_fin
2      IMPLICIT NONE
3
4!!
5!! Provided by Frederic Hourdin 01/2013
6!!
7
8
9
10!=======================================================================
11!
12!   Auteur:  L. Fairhead  ,  P. Le Van, Y. Wanherdrick, F. Forget
13!   -------
14!
15!   Objet:
16!   ------
17!
18!   'Initialize' the diagfi.nc file: write down dimensions as well
19!   as time-independent fields (e.g: geopotential, mesh area, ...)
20!
21!=======================================================================
22!-----------------------------------------------------------------------
23!   Declarations:
24!   -------------
25
26#include "netcdf.inc"
27#include "iotd.h"
28      integer ierr
29
30!   Arguments:
31!   ----------
32
33      ierr=NF_close(nid)
34
35      END
Note: See TracBrowser for help on using the repository browser.