Ignore:
Timestamp:
2020-04-05T18:47:37+02:00 (10 months ago)
Author:
smasson
Message:

r12581_ticket2418: additional cleaning, see #2418

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r12581_ticket2418/src/OCE/stpctl.F90

    r12593 r12684  
    7171      CHARACTER(len=20)               ::   clname 
    7272      !!---------------------------------------------------------------------- 
     73      IF( nstop > 0 .AND. ngrdstop > -1 )   RETURN   !   stpctl was already called by a child grid 
    7374      ! 
    7475      ll_wrtstp  = ( MOD( kt-nit000, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) 
     
    203204         WRITE(ctmp4,9200) kt, ' Sal   min ', -zmax(3), iloc(1,3), iloc(2,3), iloc(3,3), NINT(zarea(3))-1 
    204205         WRITE(ctmp5,9200) kt, ' Sal   max ',  zmax(4), iloc(1,4), iloc(2,4), iloc(3,4), NINT(zarea(4))-1 
    205          WRITE(ctmp6,*) '      ===> output of last computed fields in output.abort.nc file' 
     206         IF( Agrif_Root() ) THEN 
     207            WRITE(ctmp6,*) '      ===> output of last computed fields in output.abort* files' 
     208         ELSE 
     209            WRITE(ctmp6,*) '      ===> output of last computed fields in '//TRIM(Agrif_CFixed())//'_output.abort* files' 
     210         ENDIF 
    206211         ! 
    207212         CALL dia_wri_state( Kmm, 'output.abort' )     ! create an output.abort file 
     
    214219         ! 
    215220         IF( nstop == 0 )   nstop = 1  
     221         ngrdstop = Agrif_Fixed() 
    216222         ! 
    217223      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.