Skip to content
Snippets Groups Projects
Commit 57bbe665 authored by Clement Rousset's avatar Clement Rousset
Browse files

Update mppini.F90

parent 1efda84e
No related branches found
No related tags found
No related merge requests found
......@@ -65,7 +65,7 @@ CONTAINS
!!----------------------------------------------------------------------
!
nn_comm = 1
nn_hls = 1
nn_hls = 2
jpiglo = Ni0glo + 2 * nn_hls
jpjglo = Nj0glo + 2 * nn_hls
jpimax = jpiglo
......@@ -169,7 +169,7 @@ CONTAINS
READ ( numnam_cfg, nammpp, IOSTAT = ios, ERR = 902 )
902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist' )
!
nn_hls = MAX(1, nn_hls) ! nn_hls must be > 0
nn_hls = MAX(2, nn_hls) ! nn_hls must be > 1
# if defined key_mpi2
WRITE(numout,*) ' use key_mpi2, we force nn_comm = 1'
nn_comm = 1
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment