source:
LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/wrgradsfi.F
@
1957
Last change on this file since 1957 was 665, checked in by , 19 years ago | |
---|---|
|
|
File size: 585 bytes |
Rev | Line | |
---|---|---|
[524] | 1 | ! |
2 | ! $Header$ | |
3 | ! | |
4 | subroutine wrgradsfi(if,nl,fieldfi,name,titlevar) | |
5 | implicit none | |
6 | ||
7 | c Declarations | |
8 | ||
9 | #include "dimensions.h" | |
10 | #include "dimphy.h" | |
11 | ||
12 | c 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 | ||
19 | c local | |
20 | ||
21 | integer lm,l,lnblnk | |
22 | ||
23 | ||
24 | ||
25 | c print*,'Transformation pour ',name | |
26 | call gr_fi_dyn(nl,klon,iim+1,jjm+1,fieldfi,fielddyn) | |
27 | c print*,'Transformation OK ' | |
28 | call wrgrads(if,nl,fielddyn,name,titlevar) | |
29 | c print*,'Ecriture ok' | |
30 | ||
31 | return | |
32 | end |
Note: See TracBrowser
for help on using the repository browser.