New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9444 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90 – NEMO

Ignore:
Timestamp:
2018-03-28T14:25:17+02:00 (6 years ago)
Author:
smasson
Message:

dev_merge_2017: minor bugfix following the reorganisation of nemogcm.F90 and mppini.F90 r9436 see #2070

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

    r9436 r9444  
    148148      INTEGER ::   ierr                       ! local logical unit 
    149149      REAL(wp)::   zidom, zjdom               ! local scalars 
    150       INTEGER, DIMENSION(jpnij)     ::   iin, ii_nono, ii_noea          ! 1D workspace 
    151       INTEGER, DIMENSION(jpnij)     ::   ijn, ii_noso, ii_nowe          !  -     - 
    152       INTEGER, DIMENSION(jpni,jpnj) ::   iimppt, ilci, ibondi, ipproc   ! 2D workspace 
    153       INTEGER, DIMENSION(jpni,jpnj) ::   ijmppt, ilcj, ibondj, ipolj    !  -     - 
    154       INTEGER, DIMENSION(jpni,jpnj) ::   ilei, ildi, iono, ioea         !  -     - 
    155       INTEGER, DIMENSION(jpni,jpnj) ::   ilej, ildj, ioso, iowe         !  -     - 
     150      INTEGER, ALLOCATABLE, DIMENSION(:)     ::   iin, ii_nono, ii_noea          ! 1D workspace 
     151      INTEGER, ALLOCATABLE, DIMENSION(:)     ::   ijn, ii_noso, ii_nowe          !  -     - 
     152      INTEGER, ALLOCATABLE, DIMENSION(:,:) ::   iimppt, ilci, ibondi, ipproc   ! 2D workspace 
     153      INTEGER, ALLOCATABLE, DIMENSION(:,:) ::   ijmppt, ilcj, ibondj, ipolj    !  -     - 
     154      INTEGER, ALLOCATABLE, DIMENSION(:,:) ::   ilei, ildi, iono, ioea         !  -     - 
     155      INTEGER, ALLOCATABLE, DIMENSION(:,:) ::   ilej, ildj, ioso, iowe         !  -     - 
    156156      INTEGER, DIMENSION(jpiglo,jpjglo) ::   imask   ! 2D global domain workspace 
    157157      !!---------------------------------------------------------------------- 
     
    171171         &       nimppt(jpnij) , ibonit(jpnij) , nlcit(jpnij) , nlcjt(jpnij) ,    & 
    172172         &       njmppt(jpnij) , ibonjt(jpnij) , nldit(jpnij) , nldjt(jpnij) ,    & 
    173          &                                       nleit(jpnij) , nlejt(jpnij) , STAT=ierr ) 
     173         &                                       nleit(jpnij) , nlejt(jpnij) ,    & 
     174         &       iin(jpnij), ii_nono(jpnij), ii_noea(jpnij),   & 
     175         &       ijn(jpnij), ii_noso(jpnij), ii_nowe(jpnij),   & 
     176         &       iimppt(jpni,jpnj), ilci(jpni,jpnj), ibondi(jpni,jpnj), ipproc(jpni,jpnj),   & 
     177         &       ijmppt(jpni,jpnj), ilcj(jpni,jpnj), ibondj(jpni,jpnj), ipolj(jpni,jpnj),   & 
     178         &       ilei(jpni,jpnj), ildi(jpni,jpnj), iono(jpni,jpnj), ioea(jpni,jpnj),   & 
     179         &       ilej(jpni,jpnj), ildj(jpni,jpnj), ioso(jpni,jpnj), iowe(jpni,jpnj),   & 
     180         &       STAT=ierr ) 
    174181      CALL mpp_sum( ierr ) 
    175182      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'mpp_init: unable to allocate standard ocean arrays' ) 
     
    182189         jpimax  = ( jpiglo-2*nn_hls + (jpni-1+0) ) / jpni + 2*nn_hls 
    183190         jpjmax  = ( jpjglo-2*nn_hls + (jpnj-1+0) ) / jpnj + 2*nn_hls 
    184          nperio  = 0 
    185191         jperio  = 0 
    186192         ln_use_jattr = .false. 
     
    590596      IF( ln_nnogather )   CALL mpp_init_nfdcom     ! northfold neighbour lists 
    591597      ! 
     598      DEALLOCATE(iin, ijn, ii_nono, ii_noea, ii_noso, ii_nowe,    & 
     599         &       iimppt, ijmppt, ibondi, ibondj, ipproc, ipolj,   & 
     600         &       ilci, ilcj, ilei, ilej, ildi, ildj,              & 
     601         &       iono, ioea, ioso, iowe) 
     602      ! 
    592603    END SUBROUTINE mpp_init 
    593604 
Note: See TracChangeset for help on using the changeset viewer.