Ignore:
Timestamp:
12/15/14 17:04:28 (10 years ago)
Author:
ymipsl
Message:
  • implement splitting of XIOS file for lmdz physics
  • Termination is done properly in parallel by calling MPI_ABORT instead of abort or stop

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/writediagspecIR.F

    r245 r313  
    138138           write(*,*) "   firstnom string not long enough!!" 
    139139           write(*,*) "   increase its size to at least ",len_trim(nom) 
    140            stop 
     140           CALL abort_physiq 
    141141         endif 
    142142 
    … …  
    214214              write(*,*) "***** with time" 
    215215              write(*,*) 'ierr=', ierr    
    216 c             call abort 
     216c             call abort_physiq 
    217217             endif 
    218218 
    … …  
    295295              write(*,*) "***** with ",nom 
    296296              write(*,*) 'ierr=', ierr 
    297              call abort 
     297             call abort_physiq 
    298298           endif  
    299299 
Note: See TracChangeset for help on using the changeset viewer.