Ignore:
Timestamp:
2017-12-13T14:57:33+01:00 (3 years ago)
Author:
acc
Message:

Branch dev_CNRS_2017. Merge in no_ghost changes from dev_r8126_ROBUST08_no_ghost. These changes include lib_mpp refresh and rationalisation of mppini from dev_r8126_ROBUST10_MPPINI

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90

    r5025 r9012  
    441441 
    442442#if defined key_nemocice_decomp 
    443       ijpi = ( nx_global+2-2*jpreci + (isplt-1) ) / isplt + 2*jpreci 
    444       ijpj = ( ny_global+2-2*jprecj + (jsplt-1) ) / jsplt + 2*jprecj  
     443      ijpi = ( nx_global+2-2*nn_hls + (isplt-1) ) / isplt + 2*nn_hls 
     444      ijpj = ( ny_global+2-2*nn_hls + (jsplt-1) ) / jsplt + 2*nn_hls  
    445445#else 
    446       ijpi = ( jpiglo-2*jpreci + (isplt-1) ) / isplt + 2*jpreci 
    447       ijpj = ( jpjglo-2*jprecj + (jsplt-1) ) / jsplt + 2*jprecj 
     446      ijpi = ( jpiglo-2*nn_hls + (isplt-1) ) / isplt + 2*nn_hls 
     447      ijpj = ( jpjglo-2*nn_hls + (jsplt-1) ) / jsplt + 2*nn_hls 
    448448#endif 
    449449 
    450450 
    451       nrecil  = 2 * jpreci 
    452       nrecjl  = 2 * jprecj 
     451      nrecil  = 2 * nn_hls 
     452      nrecjl  = 2 * nn_hls 
    453453      irestil = MOD( jpiglo - nrecil , isplt ) 
    454454      irestjl = MOD( jpjglo - nrecjl , jsplt ) 
     
    563563         ibonitl(jn) = nbondil 
    564564          
    565          nldil =  1   + jpreci 
    566          nleil = nlcil - jpreci 
     565         nldil =  1   + nn_hls 
     566         nleil = nlcil - nn_hls 
    567567         IF( nbondil == -1 .OR. nbondil == 2 )   nldil = 1 
    568568         IF( nbondil ==  1 .OR. nbondil == 2 )   nleil = nlcil 
    569          nldjl =  1   + jprecj 
    570          nlejl = nlcjl - jprecj 
     569         nldjl =  1   + nn_hls 
     570         nlejl = nlcjl - nn_hls 
    571571         IF( nbondjl == -1 .OR. nbondjl == 2 )   nldjl = 1 
    572572         IF( nbondjl ==  1 .OR. nbondjl == 2 )   nlejl = nlcjl 
Note: See TracChangeset for help on using the changeset viewer.