- Timestamp:
- 2019-11-25T18:19:39+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019
- 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/branches/2019/dev_r11943_MERGE_2019/src/OCE/BDY/bdytides.F90
r11536 r11960 71 71 INTEGER, DIMENSION(3) :: ilen0 !: length of boundary data (from OBC arrays) 72 72 INTEGER :: ios ! Local integer output status for namelist read 73 INTEGER :: nbdy_rdstart, nbdy_loc 74 CHARACTER(LEN=50) :: cerrmsg !: error string 73 75 CHARACTER(len=80) :: clfile !: full file name for tidal input file 74 76 REAL(wp),ALLOCATABLE, DIMENSION(:,:,:) :: dta_read !: work space to read in tidal harmonics data … … 84 86 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~' 85 87 86 REWIND(numnam_cfg) 87 88 89 nbdy_rdstart = 1 88 90 DO ib_bdy = 1, nb_bdy 89 91 IF( nn_dyn2d_dta(ib_bdy) >= 2 ) THEN … … 94 96 filtide(:) = '' 95 97 96 REWIND( numnam_ref )97 98 READ ( numnam_ref, nambdy_tide, IOSTAT = ios, ERR = 901) 98 99 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in reference namelist' ) 99 ! Don't REWIND here - may need to read more than one of these namelists. 100 READ ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 100 ! 101 ! Need to support possibility of reading more than one 102 ! nambdy_tide from the namelist_cfg internal file. 103 ! Do this by finding the ib_bdy'th occurence of nambdy_tide in the 104 ! character buffer as the starting point. 105 ! 106 nbdy_loc = INDEX( numnam_cfg( nbdy_rdstart: ), 'nambdy_tide' ) 107 IF( nbdy_loc .GT. 0 ) THEN 108 nbdy_rdstart = nbdy_rdstart + nbdy_loc 109 ELSE 110 WRITE(cerrmsg,'(A,I4,A)') 'Error: entry number ',ib_bdy,' of nambdy_tide not found' 111 ios = -1 112 CALL ctl_nam ( ios , cerrmsg ) 113 ENDIF 114 READ ( numnam_cfg( MAX( 1, nbdy_rdstart - 2 ): ), nambdy_tide, IOSTAT = ios, ERR = 902) 101 115 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist' ) 102 116 IF(lwm) WRITE ( numond, nambdy_tide )
Note: See TracChangeset
for help on using the changeset viewer.