source: LMDZ4/branches/V3_test/libf/phylmd/wrgradsfi.F @ 1671

Last change on this file since 1671 was 704, checked in by Laurent Fairhead, 18 years ago

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 740 bytes
Line 
1!
2! $Header$
3!
4      subroutine wrgradsfi(if,nl,fieldfi_p,name,titlevar)
5      use dimphy
6      implicit none
7
8c   Declarations
9
10#include "dimensions.h"
11cym#include "dimphy.h"
12
13c   arguments
14      integer if,nl
15      real fieldfi_p(klon,nl)
16      real fieldfi(klon2,nl)
17      real fielddyn((iim+1)*(jjm+1),llm)
18      character*10 name
19      character*10 titlevar
20
21c   local
22
23      integer lm,l,lnblnk
24
25
26
27c     print*,'Transformation pour ',name
28      call GatherField(fieldfi_p,fieldfi,nl)
29     
30      if (phy_rank==0) then
31        call gr_fi_dyn(nl,klon,iim+1,jjm+1,fieldfi,fielddyn)
32c     print*,'Transformation OK '
33        call wrgrads(if,nl,fielddyn,name,titlevar)
34c     print*,'Ecriture ok'
35      endif
36     
37      return
38      end
Note: See TracBrowser for help on using the repository browser.