Ignore:
Timestamp:
Apr 13, 2015, 10:21:09 AM (9 years ago)
Author:
Laurent Fairhead
Message:

Merged trunk changes 2216:2237 into testing branch

Location:
LMDZ5/branches/testing
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing

  • LMDZ5/branches/testing/libf/phylmd/hgardfou.F90

    r2160 r2258  
    11
    22! $Id$
    3 SUBROUTINE hgardfou(t, tsol, text)
     3SUBROUTINE hgardfou(t, tsol, text,abortphy)
    44  USE dimphy
    55  USE phys_state_var_mod
    … …  
    1515  CHARACTER(len=*), intent(in):: text
    1616  CHARACTER (LEN=20) :: modname = 'hgardfou'
     17  INTEGER abortphy
    1718
    1819  INTEGER i, k, nsrf
    … …  
    128129  END DO
    129130
    130   IF (.NOT. ok) CALL abort_gcm(modname, text, 1)
     131!  IF (.NOT. ok) CALL abort_gcm(modname, text, 1)
     132  IF (.NOT. ok) abortphy=1
    131133
    132134END SUBROUTINE hgardfou
Note: See TracChangeset for help on using the changeset viewer.