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/wstats.F90

    r245 r313  
    222222      if (ierr.ne.NF_NOERR) then 
    223223         write (*,*) NF_STRERROR(ierr) 
    224          stop "" 
     224         CALL abort_physiq 
    225225      endif 
    226226 
    … …  
    237237      if (ierr.ne.NF_NOERR) then 
    238238         write (*,*) NF_STRERROR(ierr) 
    239          stop "" 
     239         CALL abort_physiq 
    240240      endif 
    241241   endif 
    … …  
    405405   write(*,*) "def_var_stats: Failed defining variable "//trim(name) 
    406406   write(*,*) NF_STRERROR(ierr) 
    407    stop "" 
     407   CALL abort_physiq 
    408408endif 
    409409 
    … …  
    414414   write(*,*) "def_var_stats: Failed writing title attribute for "//trim(name) 
    415415   write(*,*) NF_STRERROR(ierr) 
    416    stop "" 
     416   CALL abort_physiq 
    417417endif 
    418418 
    … …  
    422422   write(*,*) "def_var_stats: Failed writing units attribute for "//trim(name) 
    423423   write(*,*) NF_STRERROR(ierr) 
    424    stop "" 
     424   CALL abort_physiq 
    425425endif 
    426426 
Note: See TracChangeset for help on using the changeset viewer.