Changeset 805 for LMDZ4/trunk

Timestamp:

Jul 5, 2007, 2:09:49 PM (17 years ago)

Author:

lsce

Message:

ACo + YM : correction bug pour couplage inca et/ou orchidee

File:

• LMDZ4/trunk/libf/phylmd/iniphysiq.F (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/iniphysiq.F

@@ -13 +13 @@
       USE mod_phys_lmdz_para
       USE comgeomphy
+
       IMPLICIT NONE
 c
@@ -57 +58 @@
       REAL pcu(klon_glo),pcv(klon_glo)
       INTEGER pdayref
-      INTEGER :: ibegin,iend
+      INTEGER :: ibegin,iend,offset
  
       REAL ptimestep
@@ -78 +79 @@
 c$OMP PARALLEL PRIVATE(ibegin,iend) 
 c$OMP+         SHARED(parea,pcu,pcv,plon,plat)
-
-      airephy(1:klon_omp)=parea(klon_omp_begin:klon_omp_end)
-      cuphy(1:klon_omp)=pcu(klon_omp_begin:klon_omp_end)
-      cvphy(1:klon_omp)=pcv(klon_omp_begin:klon_omp_end)
-      rlond(1:klon_omp) = plon(klon_omp_begin:klon_omp_end)
-      rlatd(1:klon_omp) = plat(klon_omp_begin:klon_omp_end)
+      
+      offset=klon_mpi_begin-1
+      airephy(1:klon_omp)=parea(offset+klon_omp_begin:
+     &                          offset+klon_omp_end)
+      cuphy(1:klon_omp)=pcu(offset+klon_omp_begin:offset+klon_omp_end)
+      cvphy(1:klon_omp)=pcv(offset+klon_omp_begin:offset+klon_omp_end)
+      rlond(1:klon_omp)=plon(offset+klon_omp_begin:offset+klon_omp_end)
+      rlatd(1:klon_omp)=plat(offset+klon_omp_begin:offset+klon_omp_end)
 
       call suphec
@@ -92 +95 @@
       print*,'CONTROLE DES LATITUDES, LONGITUDES, PARAMETRES ...'
 
-
       RETURN
 9999  STOP'Cette version demande les fichier rnatur.dat et surf.def'