- Timestamp:
- 2016-10-28T11:13:57+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/create_boundary.F90
r7025 r7153 52 52 !> - cn_varcfg : variable configuration file 53 53 !> (see ./SIREN/cfg/variable.cfg) 54 !> - cn_dimcfg : dimension configuration file. define dimension allowed to 55 !> be used (see ./SIREN/cfg/dimension.cfg). 54 56 !> - cn_dumcfg : useless (dummy) configuration file, for useless 55 57 !> dimension or variable (see ./SIREN/cfg/dummy.cfg). … … 199 201 !> @date January, 2016 200 202 !> - same process use for variable extracted or interpolated from input file. 203 !> @date October, 2016 204 !> - dimension to be used select from configuration file 201 205 !> 202 206 !> @todo … … 387 391 388 392 ! namcfg 389 CHARACTER(LEN=lc) :: cn_varcfg = 'variable.cfg' 390 CHARACTER(LEN=lc) :: cn_dumcfg = 'dummy.cfg' 393 CHARACTER(LEN=lc) :: cn_varcfg = './cfg/variable.cfg' 394 CHARACTER(LEN=lc) :: cn_dimcfg = './cfg/dimension.cfg' 395 CHARACTER(LEN=lc) :: cn_dumcfg = './cfg/dummy.cfg' 391 396 392 397 ! namcrs … … 448 453 NAMELIST /namcfg/ & !< config namelist 449 454 & cn_varcfg, & !< variable configuration file 455 & cn_dimcfg, & !< dimension configuration file 450 456 & cn_dumcfg !< dummy configuration file 451 457 … … 529 535 CALL var_def_extra(TRIM(cn_varcfg)) 530 536 537 ! get dimension allowed 538 CALL dim_def_extra(TRIM(cn_dimcfg)) 539 531 540 ! get dummy variable 532 541 CALL var_get_dummy(TRIM(cn_dumcfg)) … … 1153 1162 CALL mpp_clean(tl_coord1) 1154 1163 CALL mpp_clean(tl_coord0) 1164 CALL var_clean_extra() 1155 1165 1156 1166 CALL multi_clean(tl_multi) … … 1615 1625 1616 1626 ENDIF 1627 1617 1628 END FUNCTION create_boundary_get_level 1618 1629 !-------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.