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

Last change on this file since 1227 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
RevLine 
[524]1!
2! $Header$
3!
[766]4      subroutine wrgradsfi(if,nl,fieldfi_p,name,titlevar)
[776]5      USE dimphy
6      USE mod_grid_phy_lmdz
7      USE mod_phys_lmdz_para
[524]8      implicit none
9
10c   Declarations
11
12#include "dimensions.h"
[766]13cym#include "dimphy.h"
[524]14
15c   arguments
16      integer if,nl
[766]17      real fieldfi_p(klon,nl)
[776]18      real fieldfi(klon_glo,nl)
[524]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
[776]30      call Gather(fieldfi_p,fieldfi)
31
32c$OMP MASTER     
33      if (is_mpi_root) then
[766]34        call gr_fi_dyn(nl,klon,iim+1,jjm+1,fieldfi,fielddyn)
[776]35       
[524]36c     print*,'Transformation OK '
[766]37        call wrgrads(if,nl,fielddyn,name,titlevar)
[524]38c     print*,'Ecriture ok'
[766]39      endif
[776]40c$OMP END MASTER
[766]41     
[524]42      return
43      end
Note: See TracBrowser for help on using the repository browser.