- Timestamp:
- 2019-11-25T18:19:39+01:00 (5 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/bdyini.F90
r11536 r11960 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 … … 1079 1076 INTEGER :: ios ! Local integer output status for namelist read 1080 1077 INTEGER :: nbdyind, nbdybeg, nbdyend 1078 INTEGER :: nbdy_count, nbdy_rdstart, nbdy_loc 1081 1079 CHARACTER(LEN=1) :: ctypebdy ! - - 1080 CHARACTER(LEN=50):: cerrmsg ! - - 1082 1081 NAMELIST/nambdy_index/ ctypebdy, nbdyind, nbdybeg, nbdyend 1083 1082 !!---------------------------------------------------------------------- 1084 1085 ! No REWIND here because may need to read more than one nambdy_index namelist. 1086 ! Read only namelist_cfg to avoid unseccessfull overwrite 1087 ! keep full control of the configuration namelist 1088 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 1083 ! Need to support possibility of reading more than one nambdy_index from 1084 ! the namelist_cfg internal file. 1085 ! Do this by finding the kb_bdy'th occurence of nambdy_index in the 1086 ! character buffer as the starting point. 1087 nbdy_rdstart = 1 1088 DO nbdy_count = 1, kb_bdy 1089 nbdy_loc = INDEX( numnam_cfg( nbdy_rdstart: ), 'nambdy_index' ) 1090 IF( nbdy_loc .GT. 0 ) THEN 1091 nbdy_rdstart = nbdy_rdstart + nbdy_loc 1092 ELSE 1093 WRITE(cerrmsg,'(A,I4,A)') 'Error: entry number ',kb_bdy,' of nambdy_index not found' 1094 ios = -1 1095 CALL ctl_nam ( ios , cerrmsg ) 1096 ENDIF 1097 END DO 1098 nbdy_rdstart = MAX( 1, nbdy_rdstart - 2 ) 1099 READ ( numnam_cfg( nbdy_rdstart: ), nambdy_index, IOSTAT = ios, ERR = 904) 1089 1100 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist' ) 1090 1101 IF(lwm) WRITE ( numond, nambdy_index )
Note: See TracChangeset
for help on using the changeset viewer.