- Timestamp:
- 2018-10-29T15:20:26+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/TOOLS/SIREN/src/multi.f90
r10248 r10251 61 61 !> @date October, 2014 62 62 !> - use mpp file structure instead of file 63 !> @date November, 2014 64 !> - Fix memory leaks bug 63 !> @date November, 2014 - Fix memory leaks bug 65 64 ! 66 65 !> @note Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 119 118 !> 120 119 !> @author J.Paul 121 !> @date November, 2013- Initial Version120 !> - November, 2013- Initial Version 122 121 !> @date November, 2014 123 122 !> - use function instead of overload assignment operator (to avoid memory leak) … … 170 169 !> 171 170 !> @author J.Paul 172 !> @date November, 2013 - Initial Version 173 !> @date July, 2015 174 !> - check if variable to be read is in file 171 !> - November, 2013- Initial Version 175 172 !> 176 173 !> @param[in] cd_varfile variable location information (from namelist) … … 193 190 194 191 INTEGER(i4) :: il_nvar 195 INTEGER(i4) :: il_varid196 192 197 193 LOGICAL :: ll_dim … … 246 242 ! define variable 247 243 IF( TRIM(fct_lower(cl_lower)) /= 'all' )THEN 248 249 ! check if variable is in file250 il_varid=var_get_index(tl_mpp%t_proc(1)%t_var(:),cl_lower)251 IF( il_varid == 0 )THEN252 CALL logger_fatal("MULTI INIT: variable "//&253 & TRIM(cl_name)//" not in file "//&254 & TRIM(cl_file) )255 ENDIF256 244 257 245 ! clean var … … 329 317 ! 330 318 !> @author J.Paul 331 !> @date November, 2013- Initial Version319 !> - November, 2013- Initial Version 332 320 ! 333 321 !> @param[in] td_multi multi file structure … … 360 348 ! 361 349 !> @author J.Paul 362 !> @date November, 2013- Initial Version350 !> - November, 2013- Initial Version 363 351 ! 364 352 !> @param[in] td_multi multi file structure … … 403 391 ! 404 392 !> @author J.Paul 405 !> @date November, 2013- Initial Version393 !> - November, 2013- Initial Version 406 394 !> @date October, 2014 407 395 !> - use mpp file structure instead of file
Note: See TracChangeset
for help on using the changeset viewer.