New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5956 for branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/TOOLS/SIREN/src/multi.f90 – NEMO

Ignore:
Timestamp:
2015-11-30T20:55:41+01:00 (8 years ago)
Author:
mathiot
Message:

ISF : merged trunk (5936) into branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/TOOLS/SIREN/src/multi.f90

    r5037 r5956  
    6161!> @date October, 2014 
    6262!> - use mpp file structure instead of file 
    63 !> @date November, 2014 - Fix memory leaks bug 
     63!> @date November, 2014  
     64!> - Fix memory leaks bug 
    6465! 
    6566!> @note Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     
    118119   !>    
    119120   !> @author J.Paul 
    120    !> - November, 2013- Initial Version 
     121   !> @date November, 2013 - Initial Version 
    121122   !> @date November, 2014 
    122123   !>    - use function instead of overload assignment operator (to avoid memory leak) 
     
    169170   !> 
    170171   !> @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 
    172175   !> 
    173176   !> @param[in] cd_varfile   variable location information (from namelist)  
     
    190193 
    191194      INTEGER(i4)       :: il_nvar 
     195      INTEGER(i4)       :: il_varid 
    192196 
    193197      LOGICAL           :: ll_dim 
     
    242246                  ! define variable 
    243247                  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 
    244256 
    245257                     ! clean var 
     
    317329   ! 
    318330   !> @author J.Paul 
    319    !> - November, 2013- Initial Version 
     331   !> @date November, 2013 - Initial Version 
    320332   ! 
    321333   !> @param[in] td_multi  multi file structure 
     
    348360   ! 
    349361   !> @author J.Paul 
    350    !> - November, 2013- Initial Version 
     362   !> @date November, 2013 - Initial Version 
    351363   ! 
    352364   !> @param[in] td_multi multi file structure 
     
    391403   ! 
    392404   !> @author J.Paul 
    393    !> - November, 2013- Initial Version 
     405   !> @date November, 2013 - Initial Version 
    394406   !> @date October, 2014 
    395407   !> - use mpp file structure instead of file 
Note: See TracChangeset for help on using the changeset viewer.