Changeset 2641 for trunk/LMDZ.MARS


Ignore:
Timestamp:
Mar 9, 2022, 5:33:32 PM (3 years ago)
Author:
emillour
Message:

Mars GCM:
Fix a typo in the OpenMP threadprivate statement of r2640.
JL

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/nonoro_gwd_ran_mod.F90

    r2640 r2641  
    105105!$OMP THREADPRIVATE(kmax)
    106106    REAL, save :: kmin             ! Min horizontal wavenumber (lambda max = 314 km,lambda=2*pi/kmin)
    107 !$OMP THREADPRIVATE(kmim)
     107!$OMP THREADPRIVATE(kmin)
    108108    REAL kstar                     ! Min horizontal wavenumber constrained by horizontal resolution
    109109    REAL, save :: cmax             ! Max horizontal absolute phase velocity (at the maginitide of zonal wind u at the launch altitude)
Note: See TracChangeset for help on using the changeset viewer.