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

Last change on this file since 5384 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
RevLine 
[524]1!
2! $Header$
3!
[704]4      subroutine wrgradsfi(if,nl,fieldfi_p,name,titlevar)
5      use dimphy
[524]6      implicit none
7
8c   Declarations
9
10#include "dimensions.h"
[704]11cym#include "dimphy.h"
[524]12
13c   arguments
14      integer if,nl
[704]15      real fieldfi_p(klon,nl)
16      real fieldfi(klon2,nl)
[524]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
[704]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)
[524]32c     print*,'Transformation OK '
[704]33        call wrgrads(if,nl,fielddyn,name,titlevar)
[524]34c     print*,'Ecriture ok'
[704]35      endif
36     
[524]37      return
38      end
Note: See TracBrowser for help on using the repository browser.