Ignore:
Timestamp:
2020-05-06T14:38:01+02:00 (9 months ago)
Author:
hadcv
Message:

Changes following feedback

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/par_oce.F90

    r12765 r12879  
    6262   INTEGER, PUBLIC ::   jpjmax! = ( jpjglo-2*nn_hls + (jpnj-1) ) / jpnj + 2*nn_hls !: maximum jpj 
    6363 
    64    ! Tiling decomposition 
    65    INTEGER, PUBLIC ::   jpnitile                !: number of tiles following i 
    66    INTEGER, PUBLIC ::   jpnjtile                !: number of tiles following j 
    67    INTEGER, PUBLIC ::   jpnijtile               !: number of tiles in total (jpnitile x jpnjtile) 
    68  
    69    ! Tile indices 
    70    INTEGER, PUBLIC ::   ntsi                    !: start of internal part of tile domain 
    71    INTEGER, PUBLIC ::   ntsj                    ! 
    72    INTEGER, PUBLIC ::   ntei                    !: end of internal part of tile domain 
    73    INTEGER, PUBLIC ::   ntej                    ! 
    74    INTEGER, PUBLIC ::   ntsim1                  !: start of tile domain 
    75    INTEGER, PUBLIC ::   ntsjm1                  ! 
    76    INTEGER, PUBLIC ::   nteip1                  !: end of tile domain 
    77    INTEGER, PUBLIC ::   ntejp1                  ! 
    78    INTEGER, PUBLIC ::   ntile                   !: current tile number 
     64   ! Domain tiling 
     65   INTEGER, PUBLIC                                  ::   nijtile    !: number of tiles in total 
     66   INTEGER, PUBLIC                                  ::   ntile      !: current tile number 
     67   INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ntsi       !: start of internal part of tile domain 
     68   INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ntsj       ! 
     69   INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ntei       !: end of internal part of tile domain 
     70   INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ntej       ! 
    7971 
    8072   !!--------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.