Changeset 9917


Ignore:
Timestamp:
2018-07-10T16:44:01+02:00 (2 years ago)
Author:
smasson
Message:

trunk: add north pole folding informations in layout.dat

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LBC/mppini.F90

    r9799 r9917  
    536536               &                                ibonit (jproc), ibonjt (jproc)  
    537537         END DO 
    538          CLOSE(inum)    
    539538      END IF 
    540539 
     
    577576      IF( jperio >= 3 .AND. jperio <= 6 .AND. jpni > 1 ) THEN 
    578577         CALL mpp_ini_north 
    579          IF(lwp) WRITE(numout,*) 
    580          IF(lwp) WRITE(numout,*) '   ==>>>   North fold boundary prepared for jpni >1' 
     578         IF (lwp) THEN 
     579            WRITE(numout,*) 
     580            WRITE(numout,*) '   ==>>>   North fold boundary prepared for jpni >1' 
     581            ! additional prints in layout.dat 
     582            WRITE(inum,*) 
     583            WRITE(inum,*) 
     584            WRITE(inum,*) 'number of subdomains located along the north fold : ', ndim_rank_north 
     585            WRITE(inum,*) 'Rank of the subdomains located along the north fold : ', ndim_rank_north 
     586            DO jproc = 1, ndim_rank_north, 5 
     587               WRITE(inum,*) nrank_north( jproc:MINVAL( (/jproc+4,ndim_rank_north/) ) ) 
     588            END DO 
     589         ENDIF 
    581590      ENDIF 
    582591      ! 
    583592      CALL mpp_init_ioipsl       ! Prepare NetCDF output file (if necessary) 
    584593      ! 
    585       IF( ln_nnogather )   CALL mpp_init_nfdcom     ! northfold neighbour lists 
     594      IF( ln_nnogather ) THEN 
     595         CALL mpp_init_nfdcom     ! northfold neighbour lists 
     596         IF (lwp) THEN 
     597            WRITE(inum,*) 
     598            WRITE(inum,*) 
     599            WRITE(inum,*) 'north fold exchanges with explicit point-to-point messaging :' 
     600            WRITE(inum,*) 'nfsloop : ', nfsloop 
     601            WRITE(inum,*) 'nfeloop : ', nfeloop 
     602            WRITE(inum,*) 'nsndto : ', nsndto 
     603            WRITE(inum,*) 'isendto : ', isendto 
     604         ENDIF 
     605      ENDIF 
     606      ! 
     607      IF (lwp) CLOSE(inum)    
    586608      ! 
    587609      DEALLOCATE(iin, ijn, ii_nono, ii_noea, ii_noso, ii_nowe,    & 
Note: See TracChangeset for help on using the changeset viewer.