Changeset 2078 for LMDZ5


Ignore:
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

Location:
LMDZ5/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/cv3_routines.F90

    r2039 r2078  
    55
    66SUBROUTINE cv3_param(nd, delt)
     7
     8  use mod_phys_lmdz_para
    79  IMPLICIT NONE
    810
     
    9193    betad = 10.0 ! original value (from convect 4.3)
    9294
     95   !$OMP MASTER
    9396    OPEN (99, FILE='conv_param.data', STATUS='old', FORM='formatted', ERR=9999)
    9497    READ (99, *, END=9998) dpbase
     
    124127    WRITE (*, *) 'tlcrit=', tlcrit
    125128! IM end: ajout fis. reglage ep
     129  !$OMP END MASTER
     130
     131   CALL bcast(dpbase)
     132   CALL bcast(pbcrit)
     133   CALL bcast(ptcrit)
     134   CALL bcast(sigdz)
     135   CALL bcast(spfac)
     136   CALL bcast(tau)
     137   CALL bcast(flag_wb)
     138   CALL bcast(wbmax)
     139
     140   CALL bcast(flag_epkeorig)
     141   CALL bcast(elcrit)
     142   CALL bcast(tlcrit)
    126143
    127144    first = .FALSE.
     
    129146  END IF ! (first)
    130147
    131 ! print*,'tau=',tau
    132148  beta = 1.0 - delt/tau
    133149  alpha1 = 1.5E-3
  • LMDZ5/trunk/libf/phylmd/wake.F90

    r1992 r2078  
    1919
    2020  USE dimphy
     21  use mod_phys_lmdz_para
    2122  IMPLICIT NONE
    2223  ! ============================================================================
     
    151152  ! Variables à fixer
    152153  REAL alon
    153   REAL coefgw
    154   REAL :: wdens_ref
    155   REAL stark
    156   REAL alpk
     154  LOGICAL, SAVE :: first = .TRUE.
     155  !$OMP THREADPRIVATE(first)
     156  REAL, SAVE ::  stark, wdens_ref, coefgw, alpk, crep_upper, crep_sol 
     157  !$OMP THREADPRIVATE(stark, wdens_ref, coefgw, alpk, crep_upper, crep_sol)
    157158  REAL delta_t_min
    158159  INTEGER nsub
     
    232233
    233234  REAL, DIMENSION (klon, klev) :: crep
    234   REAL crep_upper, crep_sol
    235235
    236236  REAL, DIMENSION (klon, klev) :: ppi
     
    280280  ! alpk = 0.05
    281281
     282 if (first) then
    282283  stark = 0.33
    283284  alpk = 0.25
     
    288289
    289290  ! cc nrlmd Lecture du fichier wake_param.data
     291 !$OMP MASTER
    290292  OPEN (99, FILE='wake_param.data', STATUS='old', FORM='formatted', ERR=9999)
    291293  READ (99, *, END=9998) stark
     
    296298  CLOSE (99)
    2972999999 CONTINUE
     300 !$OMP END MASTER
     301  CALL bcast(stark)
     302  CALL bcast(alpk)
     303  CALL bcast(wdens_ref)
     304  CALL bcast(coefgw)
     305
     306  first=.false.
     307 endif
    298308
    299309  ! Initialisation de toutes des densites a wdens_ref.
Note: See TracChangeset for help on using the changeset viewer.