Changeset 1077 for LMDZ4/trunk/libf

Timestamp:

Jan 22, 2009, 10:39:58 AM (16 years ago)

Author:

jghattas

Message:

Modifications dans les appels a INCA.
/Anne Cozic

File:

• LMDZ4/trunk/libf/dyn3dpar/gcm.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3dpar/gcm.F

@@ -239 +239 @@
 
          call init_inca_para(
-     $        iim,jjm+1,klon_glo,mpi_size,
-     $        klon_mpi_para_nb,COMM_LMDZ)
+     $        iim,jjm+1,llm,klon_glo,mpi_size,
+     $        distrib_phys,COMM_LMDZ)
 #endif
       END IF
@@ -269 +269 @@
 #endif
       endif
-
-      IF (config_inca /= 'none') THEN
-#ifdef INCA
-         call init_inca_dim(klon,llm,iim,jjm,
-     $        rlonu,rlatu,rlonv,rlatv)
-#endif
-      END IF
 
 c le cas echeant, creation d un etat initial
@@ -396 +389 @@
 #endif
 
-c  numero de stockage pour les fichiers de redemarrage:
+
+c-----------------------------------------------------------------------
+c   Initialisation des dimensions d'INCA :
+c   --------------------------------------
+      IF (config_inca /= 'none') THEN
+!$OMP PARALLEL
+#ifdef INCA
+         CALL init_inca_dim(klon_omp,llm,iim,jjm,
+     $        rlonu,rlatu,rlonv,rlatv)
+#endif
+!$OMP END PARALLEL
+      END IF
 
 c-----------------------------------------------------------------------