- Timestamp:
- 2019-07-26T11:32:13+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/OCE/nemogcm.F90
r10888 r11355 150 150 CALL mpp_max( 'nemogcm', nstop ) 151 151 152 IF(narea == 419) THEN 153 OPEN(9419, file='crash_stats_419.out', status='replace') 154 WRITE(9419,*) 'Opening output file' 155 ENDIF 156 157 IF(narea == 68) THEN 158 OPEN(968, file='crash_stats_68.out', status='replace') 159 WRITE(968,*) 'Opening output file' 160 ENDIF 161 152 162 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA 153 163 … … 156 166 ! !-----------------------! 157 167 istp = nit000 168 169 IF(narea == 419) THEN 170 WRITE(9419,*) 'max sshn nemogcm before any steps = ',MAXVAL( ABS( sshn(:,:) ) ) 171 WRITE(9419,*) 'max ssha = ',MAXVAL( ABS( ssha(:,:) ) ) 172 WRITE(9419,*) 'max emp_b = ',MAXVAL( ABS( emp_b(:,:) ) ) 173 WRITE(9419,*) 'max emp = ',MAXVAL( ABS( emp(:,:) ) ) 174 ENDIF 175 176 ! Initialise emp to zero 177 emp(:,:) = 0.0 178 158 179 ! 159 180 #if defined key_c1d … … 218 239 ! !------------------------! 219 240 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA 241 CLOSE(unit=9419) 242 CLOSE(unit=968) 220 243 ! 221 244 IF( nstop /= 0 .AND. lwp ) THEN ! error print
Note: See TracChangeset
for help on using the changeset viewer.