source:
LMDZ4/branches/V3_test/libf/phylmd/wrgradsfi.F
@
5373
Last change on this file since 5373 was 704, checked in by , 18 years ago | |
---|---|
|
|
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 | |
8 | c Declarations |
9 | |
10 | #include "dimensions.h" |
11 | cym#include "dimphy.h" |
12 | |
13 | c 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 | |
21 | c local |
22 | |
23 | integer lm,l,lnblnk |
24 | |
25 | |
26 | |
27 | c 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) |
32 | c print*,'Transformation OK ' |
33 | call wrgrads(if,nl,fielddyn,name,titlevar) |
34 | c print*,'Ecriture ok' |
35 | endif |
36 | |
37 | return |
38 | end |
Note: See TracBrowser
for help on using the repository browser.