Changeset 12377 for NEMO/trunk/src/OCE/LBC/mppini.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/OCE/LBC/mppini.F90
r11640 r12377 171 171 !!---------------------------------------------------------------------- 172 172 ! 173 llwrtlay = lw p .OR. ln_ctl.OR. sn_cfctl%l_layout173 llwrtlay = lwm .OR. sn_cfctl%l_layout 174 174 ! 175 175 ! 0. read namelists parameters 176 176 ! ----------------------------------- 177 177 ! 178 REWIND( numnam_ref ) ! Namelist nammpp in reference namelist179 178 READ ( numnam_ref, nammpp, IOSTAT = ios, ERR = 901 ) 180 179 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in reference namelist' ) 181 REWIND( numnam_cfg ) ! Namelist nammpp in confguration namelist182 180 READ ( numnam_cfg, nammpp, IOSTAT = ios, ERR = 902 ) 183 181 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist' ) … … 197 195 198 196 ! do we need to take into account bdy_msk? 199 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist : BDY200 197 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 903) 201 198 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist (mppini)' ) 202 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist : BDY203 199 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 904 ) 204 200 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist (mppini)' )
Note: See TracChangeset
for help on using the changeset viewer.