Changeset 776 for LMDZ4/trunk/libf/phylmd/iniphysiq.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/iniphysiq.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/iniphysiq.F

@@ -9 +9 @@
      $           plat,plon,parea,pcu,pcv,
      $           prad,pg,pr,pcpp)
-      USE dimphy,klon2=>klon,klon=>klon2
+      USE dimphy
+      USE mod_grid_phy_lmdz
+      USE mod_phys_lmdz_para
       USE comgeomphy
       IMPLICIT NONE
@@ -52 +54 @@
  
       INTEGER ngrid,nlayer
-      REAL plat(ngrid),plon(ngrid),parea(klon),pcu(klon),pcv(klon)
+      REAL plat(ngrid),plon(ngrid),parea(klon_glo)
+      REAL pcu(klon_glo),pcv(klon_glo)
       INTEGER pdayref
       INTEGER :: ibegin,iend
@@ -66 +69 @@
       ENDIF
 
-      IF (ngrid.NE.klon) THEN
+      IF (ngrid.NE.klon_glo) THEN
          PRINT*,'STOP in inifis'
          PRINT*,'Probleme de dimensions :'
          PRINT*,'ngrid     = ',ngrid
-         PRINT*,'klon   = ',klon
+         PRINT*,'klon   = ',klon_glo
          STOP
       ENDIF
 c$OMP PARALLEL PRIVATE(ibegin,iend) 
 c$OMP+         SHARED(parea,pcu,pcv,plon,plat)
-      ibegin=klon_begin+klon_omp_begin(omp_rank)-1
-      iend=ibegin+klon_omp-1
 
-      airephy(1:klon_omp)=parea(ibegin:iend)
-      cuphy(1:klon_omp)=pcu(ibegin:iend)
-      cvphy(1:klon_omp)=pcv(ibegin:iend)
-      rlond(1:klon_omp) = plon(ibegin:iend)
-      rlatd(1:klon_omp) = plat(ibegin:iend)
+      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)
 
       call suphec