- Timestamp:
- 2018-12-19T15:14:45+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/stpctl.F90
r10368 r10417 121 121 ENDIF 122 122 ! 123 IF( l k_mpp .AND. ln_ctl ) THEN123 IF( ln_ctl ) THEN 124 124 CALL mpp_max( "stpctl", zmax ) ! max over the global domain 125 125 nstop = NINT( zmax(7) ) ! nstop indicator sheared among all local domains … … 160 160 is2(:) = MAXLOC( tsn(:,:,:,jp_sal), mask = tmask(:,:,:) == 1._wp ) + (/ nimpp - 1, njmpp - 1, 0 /) 161 161 ENDIF 162 IF( numout == 6 ) & ! force to open ocean.output file 163 CALL ctl_opn( numout, 'ocean.output', 'APPEND', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 164 165 WRITE(numout,cform_err) 166 WRITE(numout,*) ' stp_ctl: |ssh| > 10 m or |U| > 10 m/s or S <= 0 or S >= 100 or NaN encounter in the tests' 167 WRITE(numout,*) ' ======= ' 168 IF( lk_mpp .AND. .NOT. ln_ctl ) WRITE(numout,*) 'E R R O R message from sub-domain: ', narea 169 WRITE(numout,9100) kt, zmax(1), ih(1) , ih(2) 170 WRITE(numout,9200) kt, zmax(2), iu(1) , iu(2) , iu(3) 171 WRITE(numout,9300) kt, - zmax(3), is1(1), is1(2), is1(3) 172 WRITE(numout,9400) kt, zmax(4), is2(1), is2(2), is2(3) 173 WRITE(numout,*) 174 WRITE(numout,*) ' output of last computed fields in output.abort.nc file' 162 163 WRITE(ctmp1,*) ' stp_ctl: |ssh| > 10 m or |U| > 10 m/s or S <= 0 or S >= 100 or NaN encounter in the tests' 164 WRITE(ctmp2,9100) kt, zmax(1), ih(1) , ih(2) 165 WRITE(ctmp3,9200) kt, zmax(2), iu(1) , iu(2) , iu(3) 166 WRITE(ctmp4,9300) kt, - zmax(3), is1(1), is1(2), is1(3) 167 WRITE(ctmp5,9400) kt, zmax(4), is2(1), is2(2), is2(3) 168 WRITE(ctmp6,*) ' ===> output of last computed fields in output.abort.nc file' 175 169 176 170 CALL dia_wri_state( 'output.abort' ) ! create an output.abort file 177 171 178 IF( ln_ctl ) THEN179 kindic = -3180 nstop = nstop + 1 ! increase nstop by 1 (on all local domains)172 IF( .NOT. ln_ctl ) THEN 173 WRITE(ctmp8,*) 'E R R O R message from sub-domain: ', narea 174 CALL ctl_stop( 'STOP', ctmp1, ' ', ctmp8, ' ', ctmp2, ctmp3, ctmp4, ctmp5, ctmp6 ) 181 175 ELSE 182 CALL ctl_stop() 183 CALL mppstop(ld_force_abort = .true.) 176 CALL ctl_stop( ctmp1, ' ', ctmp2, ctmp3, ctmp4, ctmp5, ' ', ctmp6, ' ' ) 184 177 ENDIF 178 179 kindic = -3 185 180 ! 186 181 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.