Changeset 2078 for LMDZ5/trunk/libf/phylmd/cv3_routines.F90

Timestamp:

Jul 4, 2014, 12:44:45 PM (10 years ago)

Author:

idelkadi

Message:

Rajout des directives OPENMP pour la lecture des cles et parametres de convection et wakes dans les fichier conv_param.data, ep_param.data et wake_param.data

File:

• LMDZ5/trunk/libf/phylmd/cv3_routines.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/cv3_routines.F90

@@ -5 +5 @@
 
 SUBROUTINE cv3_param(nd, delt)
+
+  use mod_phys_lmdz_para
   IMPLICIT NONE
 
@@ -91 +93 @@
     betad = 10.0 ! original value (from convect 4.3)
 
+   !$OMP MASTER
     OPEN (99, FILE='conv_param.data', STATUS='old', FORM='formatted', ERR=9999)
     READ (99, *, END=9998) dpbase
@@ -124 +127 @@
     WRITE (*, *) 'tlcrit=', tlcrit
 ! IM end: ajout fis. reglage ep
+  !$OMP END MASTER
+
+   CALL bcast(dpbase)
+   CALL bcast(pbcrit)
+   CALL bcast(ptcrit)
+   CALL bcast(sigdz)
+   CALL bcast(spfac)
+   CALL bcast(tau)
+   CALL bcast(flag_wb)
+   CALL bcast(wbmax)
+
+   CALL bcast(flag_epkeorig)
+   CALL bcast(elcrit)
+   CALL bcast(tlcrit)
 
     first = .FALSE.
@@ -129 +146 @@
   END IF ! (first)
 
-! print*,'tau=',tau
   beta = 1.0 - delt/tau
   alpha1 = 1.5E-3