Changeset 3703 for LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/mo_simple_plumes.F90

Timestamp:

Jun 11, 2020, 11:01:18 AM (4 years ago)

Author:

adurocher

Message:

Fixed compilation errors

• Fixed some OpenMP syntax errors for scorep
• Fix issues with ifort -check all -warn all -O0

File:

• LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/mo_simple_plumes.F90 (modified) (1 diff)

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/mo_simple_plumes.F90

@@ -280 +280 @@
 
     IF ((iweek > ntimes) .OR. (iweek < 1) .OR. (iyear > nyears) .OR. (iyear < 1)) THEN 
-      CALL abort_physic('set_time_weight','Time out of bounds')
+      CALL abort_physic('set_time_weight','Time out of bounds',1)
     ENDIF