source: LMDZ.3.3/trunk/libf/phylmd/wrgradsfi.F @ 346

Last change on this file since 346 was 2, checked in by lmdz, 25 years ago

Initial revision

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