Changeset 774 for LMDZ4/trunk/libf/dyn3dpar/gcm.F

Timestamp:

Jun 5, 2007, 4:55:21 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/dyn3dpar/gcm.F (modified) (4 diffs)

LMDZ4/trunk/libf/dyn3dpar/gcm.F

@@ -9 +9 @@
       USE IOIPSL
 #endif
+      USE mod_const_mpi, ONLY: init_const_mpi
       USE parallel
       USE dimphy
+      USE mod_interface_dyn_phys
       USE comgeomphy
       USE mod_hallo
@@ -212 +214 @@
 c------------------------------------
       call init_parallel
-      call InitDimphy
-      call InitBands
+      call Read_Distrib
+      CALL init_const_mpi
+      CALL Init_Phys_lmdz(iim,jjp1,llm,nqmx-2,mpi_size,distrib_phys)
+      CALL set_bands
+      CALL Init_interface_dyn_phys
       call MPI_BARRIER(COMM_LMDZ,ierr)
       if (mpi_rank==0) call WriteBands
@@ -226 +231 @@
       call Init_Mod_hallo(MPI_Buffer)
 c$OMP PARALLEL
-      call init_phys_openmp
       call InitComgeomphy
 c$OMP END PARALLEL 
@@ -434 +438 @@
 c       write(78,*) 'q',q
 
-
+c$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/,/logic/)
       CALL leapfrog_p(ucov,vcov,teta,ps,masse,phis,nq,q,clesphy0,
      .              time_0)
-
+c$OMP END PARALLEL