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

LMDZ4/trunk/libf/phylmd/soil.F

@@ -4 +4 @@
       SUBROUTINE soil(ptimestep, indice, knon, snow, ptsrf, ptsoil,
      s          pcapcal, pfluxgrd)
-      use dimphy
+      USE dimphy
+      USE mod_phys_lmdz_para
       IMPLICIT NONE
 
@@ -73 +74 @@
       REAL zdz2(nsoilmx),z1(klon,nbsrf)
       REAL,SAVE :: min_period,dalph_soil
+c$OMP THREADPRIVATE( min_period,dalph_soil)     
       REAL ztherm_i(klon)
 
@@ -151 +153 @@
          dalph_soil=2.    ! rapport entre les epaisseurs de 2 couches succ.
 c$OMP MASTER
+         IF (is_mpi_root) THEN
          OPEN(99,file='soil.def',status='old',form='formatted',err=9999)
          READ(99,*) min_period
@@ -159 +162 @@
          CLOSE(99)
 9999     CONTINUE
+         ENDIF  ! is_mpi_root
 c$OMP END MASTER
-c$OMP BARRIER
+         CALL bcast(min_period)
+         CALL bcast(dalph_soil)
 
 c   la premiere couche represente un dixieme de cycle diurne