source: LMDZ4/branches/IPSL-CM4_IPCC_branch/libf/phylmd/wrgradsfi.F @ 5420

Last change on this file since 5420 was 524, checked in by lmdzadmin, 21 years ago

Initial revision

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