Ignore:
Timestamp:
2019-10-02T16:28:44+02:00 (19 months ago)
Author:
acc
Message:

Branch 2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles. Bugfixes on previous commit; fix substring starting point so that it advances correctly when reading namelist block with the loop.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/OCE/BDY/bdytides.F90

    r11641 r11642  
    112112               CALL ctl_nam ( ios , cerrmsg ) 
    113113            ENDIF 
    114             nbdy_rdstart = MAX( 1, nbdy_rdstart - 2 ) 
    115             READ  ( numnam_cfg( nbdy_rdstart: ), nambdy_tide, IOSTAT = ios, ERR = 902) 
     114            READ  ( numnam_cfg( MAX( 1, nbdy_rdstart - 2 ): ), nambdy_tide, IOSTAT = ios, ERR = 902) 
    116115902         IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist' ) 
    117116            IF(lwm) WRITE ( numond, nambdy_tide ) 
Note: See TracChangeset for help on using the changeset viewer.