Ticket #2294: nambdy_tides.patch
File nambdy_tides.patch, 898 bytes (added by mdunphy, 5 years ago) |
---|
-
src/OCE/BDY/bdytides.F90
diff --git a/src/OCE/BDY/bdytides.F90 b/src/OCE/BDY/bdytides.F90 index eec3d0f..2cdab9e 100644
a b CONTAINS 99 99 ! Namelist nambdy_tide : tidal harmonic forcing at open boundaries 100 100 filtide(:) = '' 101 101 102 ! Don't REWIND here - may need to read more than one of these namelists.102 REWIND(numnam_ref) 103 103 READ ( numnam_ref, nambdy_tide, IOSTAT = ios, ERR = 901) 104 104 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in reference namelist', lwp ) 105 ! Don't REWIND numnam_cfg here - may need to read more than one of these namelists. 105 106 READ ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 106 107 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 107 108 IF(lwm) WRITE ( numond, nambdy_tide )