Changeset 4481


Ignore:
Timestamp:
2014-02-04T13:19:22+01:00 (7 years ago)
Author:
trackstand2
Message:

Replace jpk with jpkorig in original lbc code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r4409 r4481  
    547547      ! 
    548548      !                           ! Migrations 
    549       imigr = jpreci * jpj * jpk 
     549      imigr = jpreci * jpj * jpkorig 
    550550      ! 
    551551      SELECT CASE ( nbondi )  
     
    600600      ! 
    601601      !                           ! Migrations 
    602       imigr = jprecj * jpi * jpk 
     602      imigr = jprecj * jpi * jpkorig 
    603603      ! 
    604604      SELECT CASE ( nbondj )      
     
    942942      ! 
    943943      !                           ! Migrations 
    944       imigr = jpreci * jpj * jpk *2 
     944      imigr = jpreci * jpj * jpkorig *2 
    945945      ! 
    946946      SELECT CASE ( nbondi )  
     
    10011001      ! 
    10021002      !                           ! Migrations 
    1003       imigr = jprecj * jpi * jpk * 2 
     1003      imigr = jprecj * jpi * jpkorig * 2 
    10041004      ! 
    10051005      SELECT CASE ( nbondj )      
     
    23882388      ! 
    23892389      !                                     ! Build in procs of ncomm_north the znorthgloio 
    2390       itaille = jpi * jpk * ijpj 
     2390      itaille = jpi * jpkorig * ijpj 
    23912391      CALL MPI_ALLGATHER( znorthloc  , itaille, MPI_DOUBLE_PRECISION,                & 
    23922392         &                znorthgloio, itaille, MPI_DOUBLE_PRECISION, ncomm_north, ierr ) 
Note: See TracChangeset for help on using the changeset viewer.