Changeset 1688 for trunk


Ignore:
Timestamp:
Apr 6, 2017, 4:35:02 PM (8 years ago)
Author:
slebonnois
Message:

SL: a problem in hgardfou to properly stop a crazy GCM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/hgardfou.F

    r1675 r1688  
    111111c
    112112      IF (.NOT. ok) THEN
    113          PRINT*, 'hgardfou s arrete ', text
    114          CALL abort
     113         text='hgardfou s arrete '//text
     114         CALL abort_physic("hgardfou", text, 1)
    115115      ENDIF
    116116
Note: See TracChangeset for help on using the changeset viewer.