Changeset 634 for LMDZ4/branches/LMDZ4_par_0/libf/phylmd/wrgradsfi.F

Timestamp:

May 4, 2005, 5:11:29 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Modifications faites à la physique pour la rendre parallele YM
Une branche de travail LMDZ4_par_0 a été créée provisoirement afin de tester
les modifs pleinement avant leurs inclusions dans le tronc principal
LF

File:

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

LMDZ4/branches/LMDZ4_par_0/libf/phylmd/wrgradsfi.F

@@ -2 +2 @@
 ! $Header$
 !
-      subroutine wrgradsfi(if,nl,fieldfi,name,titlevar)
+      subroutine wrgradsfi(if,nl,fieldfi_p,name,titlevar)
+      use dimphy
       implicit none
 
@@ -8 +9 @@
 
 #include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimphy.h"
 
 c   arguments
       integer if,nl
-      real fieldfi(klon,nl)
+      real fieldfi_p(klon,nl)
+      real fieldfi(klon2,nl)
       real fielddyn((iim+1)*(jjm+1),llm)
       character*10 name
@@ -24 +26 @@
 
 c     print*,'Transformation pour ',name
-      call gr_fi_dyn(nl,klon,iim+1,jjm+1,fieldfi,fielddyn)
+      call GatherField(fieldfi_p,fieldfi,nl)
+      
+      if (phy_rank==0) then
+        call gr_fi_dyn(nl,klon,iim+1,jjm+1,fieldfi,fielddyn)
 c     print*,'Transformation OK '
-      call wrgrads(if,nl,fielddyn,name,titlevar)
+        call wrgrads(if,nl,fielddyn,name,titlevar)
 c     print*,'Ecriture ok'
-
+      endif
+      
       return
       end