Ignore:
Timestamp:
2020-06-03T10:44:33+02:00 (5 months ago)
Author:
smasson
Message:

Clem's branch: merge with r4.0-HEAD@13013

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/LBC/lib_mpp.F90

    r12955 r13014  
    10901090      nstop = nstop + 1 
    10911091      ! 
    1092       IF( numout == 6 ) THEN                          ! force to open ocean.output file if not already opened 
    1093          CALL ctl_opn( numout, 'ocean.output', 'APPEND', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    1094       ELSE 
    1095          IF( narea > 1 .AND. cd1 == 'STOP' ) THEN     ! add an error message in ocean.output 
    1096             CALL ctl_opn( inum,'ocean.output', 'APPEND', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    1097             WRITE(inum,*) 
    1098             WRITE(inum,'(a,i4.4)') ' ===>>> : see E R R O R in ocean.output_', narea - 1 
    1099          ENDIF 
     1092      IF( cd1 == 'STOP' .AND. narea /= 1 ) THEN    ! Immediate stop: add an arror message in 'ocean.output' file 
     1093         CALL ctl_opn( inum, 'ocean.output', 'APPEND', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
     1094         WRITE(inum,*) 
     1095         WRITE(inum,*) ' ==>>>   Look for "E R R O R" messages in all existing *ocean.output* files' 
     1096         CLOSE(inum) 
     1097      ENDIF 
     1098      IF( numout == 6 ) THEN                       ! force to open ocean.output file if not already opened 
     1099         CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE., narea ) 
    11001100      ENDIF 
    11011101      ! 
Note: See TracChangeset for help on using the changeset viewer.