Changeset 1657 for trunk

Timestamp:

Feb 4, 2017, 6:35:34 PM (8 years ago)

Author:

aslmd

Message:

replaced abort_gcm with simple print in mod_phys_lmdz_omp_data in phy_common. abort_gcm is only available in the dynamics, so it is unknown when using standalone physics or physics coupled with mesoscale model

File:

• trunk/LMDZ.MARS/libf/phy_common/mod_phys_lmdz_omp_data.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phy_common/mod_phys_lmdz_omp_data.F90

@@ -56 +56 @@
    ELSE
      abort_message = 'ANORMAL : OMP_MASTER /= 0'
-     CALL abort_gcm (modname,abort_message,1)
+     !-- abort_gcm only in the dynamics
+     !CALL abort_gcm (modname,abort_message,1)
+     print *,modname,abort_message
+     STOP
    ENDIF
 !$OMP END MASTER