Changeset 5609 for trunk/NEMOGCM/TOOLS/SIREN/src/multi.f90

Timestamp:

2015-07-17T17:42:15+02:00 (9 years ago)

Author:

jpaul

Message:

commit changes/bugfix/... for SIREN; see ticket #1580

File:

• trunk/NEMOGCM/TOOLS/SIREN/src/multi.f90 (modified) (3 diffs)

trunk/NEMOGCM/TOOLS/SIREN/src/multi.f90

@@ -170 +170 @@
    !> @author J.Paul
    !> - November, 2013- Initial Version
+   !> @date July, 2015 - check if variable to be read is in file
    !>
    !> @param[in] cd_varfile   variable location information (from namelist) 
@@ -190 +191 @@
 
       INTEGER(i4)       :: il_nvar
+      INTEGER(i4)       :: il_varid
 
       LOGICAL           :: ll_dim
@@ -242 +244 @@
                   ! define variable
                   IF( TRIM(fct_lower(cl_lower)) /= 'all' )THEN
+
+                     ! check if variable is in file
+                     il_varid=var_get_index(tl_mpp%t_proc(1)%t_var(:),cl_lower)
+                     IF( il_varid == 0 )THEN
+                        CALL logger_fatal("MULTI INIT: variable "//&
+                           & TRIM(cl_name)//" not in file "//&
+                           & TRIM(cl_file) )
+                     ENDIF
 
                      ! clean var