- Timestamp:
- 2019-07-25T14:02:55+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/LBC/mppini.F90
r11263 r11348 168 168 & rn_ice_tem, rn_ice_sal, rn_ice_age, & 169 169 & ln_vol, nn_volctl, nn_rimwidth 170 !!---------------------------------------------------------------------- 171 170 NAMELIST/nammpp/ jpni, jpnj, ln_nnogather 171 !!---------------------------------------------------------------------- 172 ! 172 173 llwrtlay = lwp .OR. ln_ctl .OR. sn_cfctl%l_layout 174 ! 175 ! 0. read namelists parameters 176 ! ----------------------------------- 177 ! 178 REWIND( numnam_ref ) ! Namelist nammpp in reference namelist 179 READ ( numnam_ref, nammpp, IOSTAT = ios, ERR = 901 ) 180 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in reference namelist' ) 181 REWIND( numnam_cfg ) ! Namelist nammpp in confguration namelist 182 READ ( numnam_cfg, nammpp, IOSTAT = ios, ERR = 902 ) 183 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist' ) 184 ! 185 IF(lwp) THEN 186 WRITE(numout,*) ' Namelist nammpp' 187 IF( jpni < 1 .OR. jpnj < 1 ) THEN 188 WRITE(numout,*) ' jpni and jpnj will be calculated automatically' 189 ELSE 190 WRITE(numout,*) ' processor grid extent in i jpni = ', jpni 191 WRITE(numout,*) ' processor grid extent in j jpnj = ', jpnj 192 ENDIF 193 WRITE(numout,*) ' avoid use of mpi_allgather at the north fold ln_nnogather = ', ln_nnogather 194 ENDIF 195 ! 196 IF(lwm) WRITE( numond, nammpp ) 197 173 198 ! do we need to take into account bdy_msk? 174 199 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist : BDY 175 200 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 903) 176 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist (mppini)' , lwp)201 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist (mppini)' ) 177 202 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist : BDY 178 203 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 904 ) 179 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist (mppini)' , lwp)204 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist (mppini)' ) 180 205 ! 181 206 IF( ln_read_cfg ) CALL iom_open( cn_domcfg, numbot )
Note: See TracChangeset
for help on using the changeset viewer.