source: LMDZ5/trunk/libf/phylmd/wrgradsfi.F @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 10 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 824 bytes
Line 
1!
2! $Header$
3!
4      subroutine wrgradsfi(if,nl,fieldfi_p,name,titlevar)
5      USE dimphy
6      USE mod_grid_phy_lmdz
7      USE mod_phys_lmdz_para
8      implicit none
9
10c   Declarations
11
12#include "dimensions.h"
13cym#include "dimphy.h"
14
15c   arguments
16      integer if,nl
17      real fieldfi_p(klon,nl)
18      real fieldfi(klon_glo,nl)
19      real fielddyn((iim+1)*(jjm+1),llm)
20      character*10 name
21      character*10 titlevar
22
23c   local
24
25      integer lm,l
26
27
28
29c     print*,'Transformation pour ',name
30      call Gather(fieldfi_p,fieldfi)
31
32c$OMP MASTER     
33      if (is_mpi_root) then
34        call gr_fi_dyn(nl,klon,iim+1,jjm+1,fieldfi,fielddyn)
35       
36c     print*,'Transformation OK '
37        call wrgrads(if,nl,fielddyn,name,titlevar)
38c     print*,'Ecriture ok'
39      endif
40c$OMP END MASTER
41     
42      return
43      end
Note: See TracBrowser for help on using the repository browser.