Changeset 12377 for NEMO/trunk/src/OCE/BDY/bdyini.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/BDY/bdyini.F90
r12142 r12377 22 22 USE bdydta ! open boundary cond. setting (bdy_dta_init routine) 23 23 USE bdytides ! open boundary cond. setting (bdytide_init routine) 24 USE sbctide ! Tidal forcing or not24 USE tide_mod, ONLY: ln_tide ! tidal forcing 25 25 USE phycst , ONLY: rday 26 26 ! … … 75 75 ! Read namelist parameters 76 76 ! ------------------------ 77 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist :Unstructured open boundaries78 77 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 901) 79 78 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist' ) … … 93 92 cn_ice (2:jp_bdy) = cn_ice (1) 94 93 nn_ice_dta (2:jp_bdy) = nn_ice_dta (1) 95 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist :Unstructured open boundaries96 94 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 97 95 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist' ) … … 364 362 ! ------------------------------------------------- 365 363 366 REWIND( numnam_cfg )367 364 nblendta(:,:) = 0 368 365 nbdysege = 0 … … 1080 1077 INTEGER :: ios ! Local integer output status for namelist read 1081 1078 INTEGER :: nbdyind, nbdybeg, nbdyend 1079 INTEGER :: nbdy_count, nbdy_rdstart, nbdy_loc 1082 1080 CHARACTER(LEN=1) :: ctypebdy ! - - 1081 CHARACTER(LEN=50):: cerrmsg ! - - 1083 1082 NAMELIST/nambdy_index/ ctypebdy, nbdyind, nbdybeg, nbdyend 1084 1083 !!---------------------------------------------------------------------- 1085 1086 ! No REWIND here because may need to read more than one nambdy_index namelist. 1087 ! Read only namelist_cfg to avoid unseccessfull overwrite 1088 ! keep full control of the configuration namelist 1089 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 1084 ! Need to support possibility of reading more than one nambdy_index from 1085 ! the namelist_cfg internal file. 1086 ! Do this by finding the kb_bdy'th occurence of nambdy_index in the 1087 ! character buffer as the starting point. 1088 nbdy_rdstart = 1 1089 DO nbdy_count = 1, kb_bdy 1090 nbdy_loc = INDEX( numnam_cfg( nbdy_rdstart: ), 'nambdy_index' ) 1091 IF( nbdy_loc .GT. 0 ) THEN 1092 nbdy_rdstart = nbdy_rdstart + nbdy_loc 1093 ELSE 1094 WRITE(cerrmsg,'(A,I4,A)') 'Error: entry number ',kb_bdy,' of nambdy_index not found' 1095 ios = -1 1096 CALL ctl_nam ( ios , cerrmsg ) 1097 ENDIF 1098 END DO 1099 nbdy_rdstart = MAX( 1, nbdy_rdstart - 2 ) 1100 READ ( numnam_cfg( nbdy_rdstart: ), nambdy_index, IOSTAT = ios, ERR = 904) 1090 1101 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist' ) 1091 1102 IF(lwm) WRITE ( numond, nambdy_index )
Note: See TracChangeset
for help on using the changeset viewer.