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