Changeset 5682 for branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/TOOLS/SIREN/src/attribute.f90
- Timestamp:
- 2015-08-12T17:46:45+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/TOOLS/SIREN/src/attribute.f90
r5037 r5682 81 81 ! REVISION HISTORY: 82 82 !> @date November, 2013 - Initial Version 83 !> @date November, 2014 - Fix memory leaks bug 83 !> @date November, 2014 84 !> - Fix memory leaks bug 84 85 ! 85 86 !> @note Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 130 131 INTEGER(i4) :: i_type = 0 !< attribute type 131 132 INTEGER(i4) :: i_len = 0 !< number of value store in attribute 132 CHARACTER(LEN=lc) :: c_value = "none"!< attribute value if type CHAR133 CHARACTER(LEN=lc) :: c_value = 'none' !< attribute value if type CHAR 133 134 REAL(dp), DIMENSION(:), POINTER :: d_value => NULL() !< attribute value if type SHORT,INT,FLOAT or DOUBLE 134 135 END TYPE TATT 135 136 136 137 INTERFACE att_init 137 MODULE PROCEDURE att__init_c 138 MODULE PROCEDURE att__init_c 138 139 MODULE PROCEDURE att__init_dp 139 140 MODULE PROCEDURE att__init_dp_0d … … 181 182 !> @date November, 2013 - Initial Version 182 183 !> @date November, 2014 183 !> 184 !> - use function instead of overload assignment operator 184 185 !> (to avoid memory leak) 185 186 ! … … 234 235 235 236 ! local variable 236 REAL(dp) , DIMENSION(:), ALLOCATABLE :: dl_value237 REAL(dp) , DIMENSION(:), ALLOCATABLE :: dl_value 237 238 !---------------------------------------------------------------- 238 239 … … 300 301 !> @author J.Paul 301 302 !> @date November, 2013 - Initial Version 302 !> @date September, 2014 - bug fix with use of id read from attribute structure 303 ! 303 !> @date September, 2014 304 !> - bug fix with use of id read from attribute structure 305 !> 304 306 !> @param[in] td_att array of attribute structure 305 307 !> @param[in] cd_name attribute name … … 355 357 356 358 att__init_c%c_name=TRIM(ADJUSTL(cd_name)) 357 358 359 att__init_c%i_type=NF90_CHAR 360 359 361 att__init_c%c_value=TRIM(ADJUSTL(cd_value)) 360 362 att__init_c%i_len=LEN( TRIM(ADJUSTL(cd_value)) ) … … 368 370 !> 369 371 !> @author J.Paul 370 !> @d tae November, 2013 - Initial Version372 !> @date November, 2013 - Initial Version 371 373 ! 372 374 !> @param[in] cd_name attribute name … … 1068 1070 !> @author J.Paul 1069 1071 !> @date November, 2013 - Initial Version 1070 !> @date September, 2014 - take into account type of attribute. 1072 !> @date September, 2014 1073 !> - take into account type of attribute. 1071 1074 ! 1072 1075 !> @param[in] td_att attribute structure … … 1114 1117 1115 1118 CASE(NF90_CHAR) 1119 1116 1120 cl_value=td_att%c_value 1117 1121
Note: See TracChangeset
for help on using the changeset viewer.