Changeset 6393 for trunk/NEMOGCM/TOOLS/SIREN/src/create_coord.f90
- Timestamp:
- 2016-03-17T10:16:03+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/TOOLS/SIREN/src/create_coord.f90
r5609 r6393 9 9 !> @file 10 10 !> @brief 11 !> This program create fine grid coordinate file.11 !> This program creates fine grid coordinate file. 12 12 !> 13 13 !> @details … … 27 27 !> you could find a template of the namelist in templates directory. 28 28 !> 29 !> create_coord.nam co mprise6 namelists:<br/>29 !> create_coord.nam contains 6 namelists:<br/> 30 30 !> - logger namelist (namlog) 31 31 !> - config namelist (namcfg) … … 35 35 !> - output namelist (namout) 36 36 !> 37 !> @note38 !> All namelists have to be in file create_coord.nam,39 !> however variables of those namelists are all optional.40 !>41 37 !> * _logger namelist (namlog)_:<br/> 42 38 !> - cn_logfile : log filename … … 48 44 !> - cn_varcfg : variable configuration file 49 45 !> (see ./SIREN/cfg/variable.cfg) 46 !> - cn_dumcfg : useless (dummy) configuration file, for useless 47 !> dimension or variable (see ./SIREN/cfg/dummy.cfg). 50 48 !> 51 49 !> * _coarse grid namelist (namcrs)_:<br/> … … 64 62 !> - int = interpolation method 65 63 !> - ext = extrapolation method 66 !> - flt = filter method67 64 !> 68 65 !> requests must be separated by ';' .<br/> … … 72 69 !> @ref extrap and @ref filter modules.<br/> 73 70 !> 74 !> Example: ' votemper: int=linear; flt=hann(2,3); ext=dist_weight',75 !> ' vosaline: int=cubic'<br/>71 !> Example: 'glamt: int=linear; ext=dist_weight', 72 !> 'e1t: int=cubic/rhoi'<br/> 76 73 !> @note 77 74 !> If you do not specify a method which is required, … … 103 100 !> - compute offset considering grid point 104 101 !> - add global attributes in output file 102 !> @date September, 2015 103 !> - manage useless (dummy) variable, attributes, and dimension 105 104 !> 106 105 !> @note Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 167 166 168 167 ! namcfg 169 CHARACTER(LEN=lc) :: cn_varcfg = '../cfg/variable.cfg' 168 CHARACTER(LEN=lc) :: cn_varcfg = './cfg/variable.cfg' 169 CHARACTER(LEN=lc) :: cn_dumcfg = './cfg/dummy.cfg' 170 170 171 171 ! namcrs … … 194 194 195 195 NAMELIST /namcfg/ & ! config namelist 196 & cn_varcfg !< variable configuration file 196 & cn_varcfg, & !< variable configuration file 197 & cn_dumcfg !< dummy configuration file 197 198 198 199 NAMELIST /namcrs/ & ! coarse grid namelist … … 254 255 CALL var_def_extra(TRIM(cn_varcfg)) 255 256 257 ! get dummy variable 258 CALL var_get_dummy(TRIM(cn_dumcfg)) 259 ! get dummy dimension 260 CALL dim_get_dummy(TRIM(cn_dumcfg)) 261 ! get dummy attribute 262 CALL att_get_dummy(TRIM(cn_dumcfg)) 263 256 264 READ( il_fileid, NML = namcrs ) 257 265 READ( il_fileid, NML = namvar ) … … 354 362 ENDDO 355 363 364 ! clean 365 CALL dom_clean_extra( tl_dom ) 366 356 367 ! close mpp files 357 368 CALL iom_dom_close(tl_coord0) … … 388 399 CALL file_add_att(tl_fileout, tl_att) 389 400 390 tl_att=att_init("src_i_indices",(/ in_imin0,in_imax0/))401 tl_att=att_init("src_i_indices",(/tl_dom%i_imin,tl_dom%i_imax/)) 391 402 CALL file_add_att(tl_fileout, tl_att) 392 tl_att=att_init("src_j_indices",(/ in_jmin0,in_jmax0/))403 tl_att=att_init("src_j_indices",(/tl_dom%i_jmin,tl_dom%i_jmax/)) 393 404 CALL file_add_att(tl_fileout, tl_att) 394 405 IF( .NOT. ALL(il_rho(:)==1) )THEN
Note: See TracChangeset
for help on using the changeset viewer.