source: lmdz_wrf/trunk/WRFV3/lmdz/wrgradsfi.F90 @ 1422

Last change on this file since 1422 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 852 bytes
Line 
1!
2! $Header$
3!
4      subroutine wrgradsfi(if,nl,fieldfi_p,name,titlevar)
5      USE dimphy
6      USE mod_grid_phy_lmdz
7      USE mod_phys_lmdz_para
8      implicit none
9
10!c   Declarations
11
12#include "dimensions.h"
13!cym#include "dimphy.h"
14
15!c   arguments
16      integer if,nl
17      real fieldfi_p(klon,nl)
18      real fieldfi(klon_glo,nl)
19      real fielddyn((iim+1)*(jjm+1),llm)
20      character*10 name
21      character*10 titlevar
22
23!c   local
24
25      integer lm,l
26
27
28
29!c     print*,'Transformation pour ',name
30      call Gather(fieldfi_p,fieldfi)
31
32!$OMP MASTER     
33      if (is_mpi_root) then
34        call gr_fi_dyn(nl,klon,iim+1,jjm+1,fieldfi,fielddyn)
35       
36!c     print*,'Transformation OK '
37        call wrgrads(if,nl,fielddyn,name,titlevar)
38!c     print*,'Ecriture ok'
39      endif
40!$OMP END MASTER
41     
42      return
43      end subroutine wrgradsfi
Note: See TracBrowser for help on using the repository browser.