New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11642 – NEMO

Changeset 11642


Ignore:
Timestamp:
2019-10-02T16:28:44+02:00 (4 years 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.

Location:
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/OCE/BDY
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/OCE/BDY/bdydta.F90

    r11641 r11642  
    446446               CALL ctl_nam ( ios , cerrmsg ) 
    447447            ENDIF 
    448             nbdy_rdstart = MAX( 1, nbdy_rdstart - 2 ) 
    449             READ  ( numnam_cfg( nbdy_rdstart: ), nambdy_dta, IOSTAT = ios, ERR = 902) 
     448            READ  ( numnam_cfg( MAX( 1, nbdy_rdstart - 2 ): ), nambdy_dta, IOSTAT = ios, ERR = 902) 
    450449902         IF( ios >  0 )   CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist' ) 
    451450            IF(lwm) WRITE( numond, nambdy_dta )            

  • 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.