Changeset 2029 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Apr 30, 2014, 4:07:02 PM (11 years ago)
Author:
fhourdin
Message:

Correction d'un bug OpenMP
OpenMP bug fixing

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cv3_routines.F90

    r2007 r2029  
    5656  IF (first) THEN
    5757
    58 !$OMP MASTER
    5958! -- "microphysical" parameters:
    6059    sigdz = 0.01
    … …  
    127126
    128127    first = .FALSE.
    129 !$OMP END MASTER
    130128
    131129  END IF ! (first)
    132130
     131  print*,'tau=',tau
    133132  beta = 1.0 - delt/tau
    134133  alpha1 = 1.5E-3
Note: See TracChangeset for help on using the changeset viewer.