Changeset 4456


Ignore:
Timestamp:
Mar 7, 2023, 7:18:57 PM (2 years ago)
Author:
lguez
Message:

Stop with return code 1

So that a calling script may know that the program failed.

Location:
LMDZ6/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dynphy_lonlat/gr_dyn_fi.F

    r2239 r4456  
    2222c   -------
    2323
    24       IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim'
     24      IF (ngrid.NE.2+(jm-2)*(im-1)) then
     25         print *, 'probleme de dim'
     26         stop 1
     27      end if
    2528c   traitement des poles
    2629      CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid)

  • LMDZ6/trunk/libf/filtrez/mod_fft_wrapper.F90

    r1907 r4456  
    1111    INTEGER :: nb
    1212   
    13     STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     13    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     14    stop 1
    1415  END SUBROUTINE Init_fft
    1516 
    … …  
    2122    COMPLEX,INTENT(INOUT) :: TF_vect(vsize/2+1,nb_vect)
    2223   
    23     STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     24    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     25    stop 1
    2426   
    2527  END SUBROUTINE fft_forward
    … …  
    3133    COMPLEX,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect)
    3234 
    33     STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     35    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     36    stop 1
    3437   
    3538  END SUBROUTINE fft_backward
Note: See TracChangeset for help on using the changeset viewer.