Changeset 2675 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
May 3, 2022, 9:09:11 AM (3 years ago)
Author:
emillour
Message:

Titan GCM:
Fix a typo in OpenMP directives spoted by ifort (even when not compiling with OpenMP enabled!).
EM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.TITAN/libf/phytitan/muphy_diag.F90

    r1926 r2675  
    2424  REAL(kind=8), ALLOCATABLE, DIMENSION(:,:)   :: mmd_rc_cld     !! Cloud drop radius (m).
    2525
    26   !$OMP TRHEADPRIVATE(mmd_aer_prec,mmd_ccnprec,mmd_aer_s_flux,mmd_aer_f_flux,mmd_ccn_flux,mmd_ice_fluxes)
    27   !$OMP TRHEADPRIVATE(mmd_gazs_sat,mmd_ice_prec,mmd_rc_sph,mmd_rc_fra,mmd_rc_cld)
     26  !$OMP THREADPRIVATE(mmd_aer_prec,mmd_ccnprec,mmd_aer_s_flux,mmd_aer_f_flux,mmd_ccn_flux,mmd_ice_fluxes)
     27  !$OMP THREADPRIVATE(mmd_gazs_sat,mmd_ice_prec,mmd_rc_sph,mmd_rc_fra,mmd_rc_cld)
    2828
    2929  CONTAINS
Note: See TracChangeset for help on using the changeset viewer.