Ignore:
Timestamp:
2019-07-09T14:22:12+02:00 (2 years ago)
Author:
clem
Message:

debug BDY-ice by allowing any number of categories as input. Ticket #2300 may also be solved

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/SAS/nemogcm.F90

    r10601 r11229  
    165165#else 
    166166      IF    ( lk_oasis ) THEN   ;   CALL cpl_finalize   ! end coupling and mpp communications with OASIS 
    167       ELSEIF( lk_mpp   ) THEN   ;   CALL mppstop        ! end mpp communications 
    168       ENDIF 
    169 #endif 
     167      ELSEIF( lk_mpp   ) THEN   ;   CALL mppstop( ldfinal = .TRUE. )   ! end mpp communications 
     168      ENDIF 
     169#endif 
     170      ! 
     171      IF(lwm) THEN 
     172         IF( nstop == 0 ) THEN   ;   STOP 0 
     173         ELSE                    ;   STOP 999 
     174         ENDIF 
     175      ENDIF 
    170176      ! 
    171177   END SUBROUTINE nemo_gcm 
     
    311317         WRITE(numout,*) "       )  )       \) |`\ \)  '.   \      (   (   " 
    312318         WRITE(numout,*) "      (  (           \_/       '-._\      )   )  " 
    313          WRITE(numout,*) "       )  )                        `     (   (   " 
     319         WRITE(numout,*) "       )  ) jgs                    `     (   (   " 
    314320         WRITE(numout,*) "     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 
    315321         WRITE(numout,*) 
     322 
    316323         DO ji = 1, SIZE(cltxt) 
    317             IF( TRIM(cltxt (ji)) /= '' )   WRITE(numout,*) cltxt(ji)    ! control print of mynode 
     324            IF( TRIM(cltxt (ji)) /= '' )   WRITE(numout,*) TRIM(cltxt(ji))    ! control print of mynode 
    318325         END DO 
    319326         WRITE(numout,*) 
    320327         WRITE(numout,*) 
    321328         DO ji = 1, SIZE(cltxt2) 
    322             IF( TRIM(cltxt2(ji)) /= '' )   WRITE(numout,*) cltxt2(ji)   ! control print of domain size 
     329            IF( TRIM(cltxt2(ji)) /= '' )   WRITE(numout,*) TRIM(cltxt2(ji))   ! control print of domain size 
    323330         END DO 
    324331         ! 
     
    467474      ! 
    468475      IF( 1._wp /= SIGN(1._wp,-0._wp)  )   CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows f2003 standard.',  & 
    469          &                                                'Compile with key_nosignedzero enabled' ) 
     476         &                                                'Compile with key_nosignedzero enabled:',   & 
     477         &                                                '--> add -Dkey_nosignedzero to the definition of %CPP in your arch file' ) 
    470478      ! 
    471479#if defined key_agrif 
Note: See TracChangeset for help on using the changeset viewer.