Changeset 11263 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/SAS/nemogcm.F90
- Timestamp:
- 2019-07-12T12:47:53+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/SAS/nemogcm.F90
r10601 r11263 165 165 #else 166 166 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 170 176 ! 171 177 END SUBROUTINE nemo_gcm … … 311 317 WRITE(numout,*) " ) ) \) |`\ \) '. \ ( ( " 312 318 WRITE(numout,*) " ( ( \_/ '-._\ ) ) " 313 WRITE(numout,*) " ) ) 319 WRITE(numout,*) " ) ) jgs ` ( ( " 314 320 WRITE(numout,*) " ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 315 321 WRITE(numout,*) 322 316 323 DO ji = 1, SIZE(cltxt) 317 IF( TRIM(cltxt (ji)) /= '' ) WRITE(numout,*) cltxt(ji) ! control print of mynode324 IF( TRIM(cltxt (ji)) /= '' ) WRITE(numout,*) TRIM(cltxt(ji)) ! control print of mynode 318 325 END DO 319 326 WRITE(numout,*) 320 327 WRITE(numout,*) 321 328 DO ji = 1, SIZE(cltxt2) 322 IF( TRIM(cltxt2(ji)) /= '' ) WRITE(numout,*) cltxt2(ji) ! control print of domain size329 IF( TRIM(cltxt2(ji)) /= '' ) WRITE(numout,*) TRIM(cltxt2(ji)) ! control print of domain size 323 330 END DO 324 331 ! … … 467 474 ! 468 475 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' ) 470 478 ! 471 479 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.