Changeset 12684 for NEMO/branches/2020/r12581_ticket2418/src/OCE/stpctl.F90
- Timestamp:
- 2020-04-05T18:47:37+02:00 (10 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12581_ticket2418/src/OCE/stpctl.F90
r12593 r12684 71 71 CHARACTER(len=20) :: clname 72 72 !!---------------------------------------------------------------------- 73 IF( nstop > 0 .AND. ngrdstop > -1 ) RETURN ! stpctl was already called by a child grid 73 74 ! 74 75 ll_wrtstp = ( MOD( kt-nit000, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) … … 203 204 WRITE(ctmp4,9200) kt, ' Sal min ', -zmax(3), iloc(1,3), iloc(2,3), iloc(3,3), NINT(zarea(3))-1 204 205 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 206 211 ! 207 212 CALL dia_wri_state( Kmm, 'output.abort' ) ! create an output.abort file … … 214 219 ! 215 220 IF( nstop == 0 ) nstop = 1 221 ngrdstop = Agrif_Fixed() 216 222 ! 217 223 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.