Changeset 6379 for branches/UKMO/dev_r5518_debug_GO6CICE_pkg/NEMOGCM/TOOLS/SIREN/src/create_bathy.f90
- Timestamp:
- 2016-03-10T14:49:10+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_debug_GO6CICE_pkg/NEMOGCM/TOOLS/SIREN/src/create_bathy.f90
r5037 r6379 20 20 !> ./SIREN/bin/create_bathy create_bathy.nam 21 21 !> @endcode 22 !> 22 !> <br/> 23 !> \image html bathy_40.png 24 !> \image latex bathy_30.png 25 !> 26 !> @note 27 !> you could find a template of the namelist in templates directory. 28 !> 23 29 !> create_bathy.nam comprise 7 namelists:<br/> 24 30 !> - logger namelist (namlog) … … 37 43 !> - cn_logfile : log filename 38 44 !> - cn_verbosity : verbosity ('trace','debug','info', 39 !> 'warning','error','fatal' )45 !> 'warning','error','fatal','none') 40 46 !> - in_maxerror : maximum number of error allowed 41 47 !> … … 52 58 !> - cn_coord1 : coordinate file 53 59 !> - in_perio1 : periodicity index 54 !> - ln_fillclosed : fill closed sea or not 60 !> - ln_fillclosed : fill closed sea or not (default is .TRUE.) 55 61 !> 56 62 !> * _variable namelist (namvar)_:<br/> 57 63 !> - cn_varinfo : list of variable and extra information about request(s) 58 64 !> to be used.<br/> 59 !> each elements of *cn_varinfo* is a string character.<br/> 65 !> each elements of *cn_varinfo* is a string character 66 !> (separated by ',').<br/> 60 67 !> it is composed of the variable name follow by ':', 61 68 !> then request(s) to be used on this variable.<br/> 62 69 !> request could be: 63 !> - interpolation method 64 !> - extrapolation method 65 !> - filter method 66 !> - > minimum value 67 !> - < maximum value 70 !> - int = interpolation method 71 !> - ext = extrapolation method 72 !> - flt = filter method 73 !> - min = minimum value 74 !> - max = maximum value 75 !> - unt = new units 76 !> - unf = unit scale factor (linked to new units) 68 77 !> 69 78 !> requests must be separated by ';'.<br/> … … 72 81 !> informations about available method could be find in @ref interp, 73 82 !> @ref extrap and @ref filter modules.<br/> 74 !> Example: 'Bathymetry: 2*hamming(2,3); >0'83 !> Example: 'Bathymetry: flt=2*hamming(2,3); min=0' 75 84 !> @note 76 85 !> If you do not specify a method which is required, … … 90 99 !> - ',' for line 91 100 !> - '/' for row 92 !> - '\' for level<br/>93 101 !> Example:<br/> 94 102 !> 3,2,3/1,4,5 => @f$ \left( \begin{array}{ccc} … … 99 107 !> - 'Bathymetry:gridT.nc' 100 108 !> - 'Bathymetry:5000,5000,5000/5000,3000,5000/5000,5000,5000' 101 !>102 !> \image html bathy_40.png103 !> \image latex bathy_30.png104 109 !> 105 110 !> * _nesting namelist (namnst)_:<br/> … … 119 124 !> - add header for user 120 125 !> - Bug fix, compute offset depending of grid point 126 !> @date June, 2015 127 !> - extrapolate all land points. 128 !> - allow to change unit. 121 129 ! 130 !> @todo 131 !> - use create_bathy_check_depth as in create_boundary 132 !> - use create_bathy_check_time as in create_boundary 133 !> - check tl_multi is not empty 134 !> 122 135 !> @note Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 123 136 !---------------------------------------------------------------------- … … 482 495 ENDIF 483 496 497 ! use additional request 484 498 DO jk=1,tl_multi%i_nvar 499 500 ! change unit and apply factor 501 CALL var_chg_unit(tl_var(jk)) 502 485 503 ! forced min and max value 486 504 CALL var_limit_value(tl_var(jk)) … … 557 575 558 576 ! add other variables 559 DO jk= 1,tl_multi%i_nvar577 DO jk=tl_multi%i_nvar,1,-1 560 578 CALL file_add_var(tl_fileout, tl_var(jk)) 561 579 CALL var_clean(tl_var(jk)) … … 623 641 !> 624 642 !> @author J.Paul 625 !> - November, 2013- Initial Version643 !> @date November, 2013 - Initial Version 626 644 !> 627 645 !> @param[in] td_var variable structure … … 759 777 !> 760 778 !> @author J.Paul 761 !> - November, 2013- Initial Version779 !> @date November, 2013 - Initial Version 762 780 !> 763 781 !> @param[in] td_var variable structure … … 878 896 !> 879 897 !> @author J.Paul 880 !> - November, 2013- Initial Version898 !> @date November, 2013 - Initial Version 881 899 !> 882 900 !> @param[in] td_var variable structure … … 897 915 IMPLICIT NONE 898 916 ! Argument 899 TYPE(TVAR) , INTENT(IN) :: td_var900 TYPE(TMPP) , INTENT(IN) :: td_mpp901 INTEGER(i4) , INTENT(IN) :: id_imin902 INTEGER(i4) , INTENT(IN) :: id_imax903 INTEGER(i4) , INTENT(IN) :: id_jmin904 INTEGER(i4) , INTENT(IN) :: id_jmax917 TYPE(TVAR) , INTENT(IN) :: td_var 918 TYPE(TMPP) , INTENT(IN) :: td_mpp 919 INTEGER(i4) , INTENT(IN) :: id_imin 920 INTEGER(i4) , INTENT(IN) :: id_imax 921 INTEGER(i4) , INTENT(IN) :: id_jmin 922 INTEGER(i4) , INTENT(IN) :: id_jmax 905 923 INTEGER(i4), DIMENSION(:,:), INTENT(IN) :: id_offset 906 924 INTEGER(i4), DIMENSION(:) , INTENT(IN) :: id_rho … … 989 1007 !> 990 1008 !> @author J.Paul 991 !> - November, 2013- Initial Version1009 !> @date November, 2013 - Initial Version 992 1010 !> 993 1011 !> @param[inout] td_var variable structure … … 1073 1091 1074 1092 ! extrapolate variable 1075 CALL extrap_fill_value( td_var, id_offset=id_offset(:,:), & 1076 & id_rho=id_rho(:), & 1077 & id_iext=il_iext, id_jext=il_jext ) 1093 CALL extrap_fill_value( td_var ) 1078 1094 1079 1095 ! interpolate Bathymetry
Note: See TracChangeset
for help on using the changeset viewer.