Ignore:
Timestamp:
2018-11-19T10:41:29+01:00 (22 months ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 6: find the best mpi domain decomposition, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/nemogcm.F90

    r10297 r10330  
    234234#else 
    235235      IF    ( lk_oasis ) THEN   ;   CALL cpl_finalize   ! end coupling and mpp communications with OASIS 
    236       ELSEIF( lk_mpp   ) THEN   ;   CALL mppstop        ! end mpp communications 
     236      ELSEIF( lk_mpp   ) THEN   ;   CALL mppstop( ldfinal = .TRUE. )   ! end mpp communications 
    237237      ENDIF 
    238238#endif 
     
    349349         WRITE(numout,*) 
    350350         DO ji = 1, SIZE(cltxt) 
    351             IF( TRIM(cltxt (ji)) /= '' )   WRITE(numout,*) cltxt(ji)    ! control print of mynode 
     351            IF( TRIM(cltxt (ji)) /= '' )   WRITE(numout,*) TRIM(cltxt(ji))    ! control print of mynode 
    352352         END DO 
    353353         WRITE(numout,*) 
    354354         WRITE(numout,*) 
    355355         DO ji = 1, SIZE(cltxt2) 
    356             IF( TRIM(cltxt2(ji)) /= '' )   WRITE(numout,*) cltxt2(ji)   ! control print of domain size 
     356            IF( TRIM(cltxt2(ji)) /= '' )   WRITE(numout,*) TRIM(cltxt2(ji))   ! control print of domain size 
    357357         END DO 
    358358         ! 
     
    360360         ! 
    361361      ENDIF 
     362      ! open /dev/null file to be able to supress output write easily 
     363      CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
     364      ! 
    362365      !                                      ! Domain decomposition 
    363366      CALL mpp_init                          ! MPP 
Note: See TracChangeset for help on using the changeset viewer.