Changeset 7646 for trunk/NEMOGCM/TOOLS/SIREN/src/create_bathy.f90
- Timestamp:
- 2017-02-06T10:25:03+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/TOOLS/SIREN/src/create_bathy.f90
r6393 r7646 22 22 !> <br/> 23 23 !> \image html bathy_40.png 24 !> \image latex bathy_30.png 24 !> <center>\image latex bathy_30.png 25 !> </center> 25 26 !> 26 27 !> @note … … 45 46 !> - cn_varcfg : variable configuration file 46 47 !> (see ./SIREN/cfg/variable.cfg) 48 !> - cn_dimcfg : dimension configuration file. defines dimension allowed 49 !> (see ./SIREN/cfg/dimension.cfg). 47 50 !> - cn_dumcfg : useless (dummy) configuration file, for useless 48 51 !> dimension or variable (see ./SIREN/cfg/dummy.cfg). … … 133 136 !> @date February, 2016 134 137 !> - do not closed sea for east-west cyclic domain 138 !> @date October, 2016 139 !> - dimension to be used select from configuration file 135 140 ! 136 141 !> @todo … … 218 223 ! namcfg 219 224 CHARACTER(LEN=lc) :: cn_varcfg = './cfg/variable.cfg' 225 CHARACTER(LEN=lc) :: cn_dimcfg = './cfg/dimension.cfg' 220 226 CHARACTER(LEN=lc) :: cn_dumcfg = './cfg/dummy.cfg' 221 227 … … 248 254 NAMELIST /namcfg/ & !< configuration namelist 249 255 & cn_varcfg, & !< variable configuration file 256 & cn_dimcfg, & !< dimension configuration file 250 257 & cn_dumcfg !< dummy configuration file 251 258 … … 307 314 ! get variable extra information 308 315 CALL var_def_extra(TRIM(cn_varcfg)) 316 317 ! get dimension allowed 318 CALL dim_def_extra(TRIM(cn_dimcfg)) 309 319 310 320 ! get dummy variable … … 614 624 CALL mpp_clean(tl_coord1) 615 625 CALL mpp_clean(tl_coord0) 626 CALL var_clean_extra() 616 627 617 628 ! close log file
Note: See TracChangeset
for help on using the changeset viewer.