Changeset 776 for LMDZ4/trunk/libf/phylmd/wrgradsfi.F

Timestamp:

Jun 7, 2007, 12:01:52 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Suite du merge entre la version et la HEAD: quelques modifications
de Yann sur le
LF

File:

• LMDZ4/trunk/libf/phylmd/wrgradsfi.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/wrgradsfi.F

@@ -3 +3 @@
 !
       subroutine wrgradsfi(if,nl,fieldfi_p,name,titlevar)
-      use dimphy
+      USE dimphy
+      USE mod_grid_phy_lmdz
+      USE mod_phys_lmdz_para
       implicit none
 
@@ -14 +16 @@
       integer if,nl
       real fieldfi_p(klon,nl)
-      real fieldfi(klon2,nl)
+      real fieldfi(klon_glo,nl)
       real fielddyn((iim+1)*(jjm+1),llm)
       character*10 name
@@ -26 +28 @@
 
 c     print*,'Transformation pour ',name
-      call GatherField(fieldfi_p,fieldfi,nl)
-      
-      if (phy_rank==0) then
+      call Gather(fieldfi_p,fieldfi)
+
+c$OMP MASTER      
+      if (is_mpi_root) then
         call gr_fi_dyn(nl,klon,iim+1,jjm+1,fieldfi,fielddyn)
+        
 c     print*,'Transformation OK '
         call wrgrads(if,nl,fielddyn,name,titlevar)
 c     print*,'Ecriture ok'
       endif
+c$OMP END MASTER
       
       return