Changeset 2675 for trunk/LMDZ.TITAN/libf/phytitan

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:

• trunk/LMDZ.TITAN/libf/phytitan/muphy_diag.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/muphy_diag.F90

@@ -24 +24 @@
   REAL(kind=8), ALLOCATABLE, DIMENSION(:,:)   :: mmd_rc_cld     !! Cloud drop radius (m).
 
-  !$OMP TRHEADPRIVATE(mmd_aer_prec,mmd_ccnprec,mmd_aer_s_flux,mmd_aer_f_flux,mmd_ccn_flux,mmd_ice_fluxes)
-  !$OMP TRHEADPRIVATE(mmd_gazs_sat,mmd_ice_prec,mmd_rc_sph,mmd_rc_fra,mmd_rc_cld)
+  !$OMP THREADPRIVATE(mmd_aer_prec,mmd_ccnprec,mmd_aer_s_flux,mmd_aer_f_flux,mmd_ccn_flux,mmd_ice_fluxes)
+  !$OMP THREADPRIVATE(mmd_gazs_sat,mmd_ice_prec,mmd_rc_sph,mmd_rc_fra,mmd_rc_cld)
 
   CONTAINS