source: LMDZ4/trunk/libf/phylmd/wrgradsfi.F @ 862

Last change on this file since 862 was 776, checked in by Laurent Fairhead, 17 years ago

Suite du merge entre la version et la HEAD: quelques modifications
de Yann sur le

LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 831 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,lnblnk
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.