Changeset 6393 for trunk/NEMOGCM/TOOLS/SIREN/src/file.f90

Timestamp:

2016-03-17T10:16:03+01:00 (8 years ago)

Author:

jpaul

Message:

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

File:

• trunk/NEMOGCM/TOOLS/SIREN/src/file.f90 (modified) (4 diffs)

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

@@ -694 +694 @@
    !> @date November, 2013 - Initial Version
    !> @date September, 2014
-   !> - add dimension to file if need be
+   !> - add dimension in file if need be
    !> - do not reorder dimension from variable, before put in file
+   !> @date September, 2015
+   !> - check variable dimension expected
    !
    !> @param[inout] td_file   file structure
@@ -705 +707 @@
       ! Argument      
       TYPE(TFILE), INTENT(INOUT) :: td_file
-      TYPE(TVAR) , INTENT(IN   ) :: td_var
+      TYPE(TVAR) , INTENT(INOUT) :: td_var
 
       ! local variable
@@ -761 +763 @@
                IF( file_check_var_dim(td_file, td_var) )THEN
 
+                  ! check variable dimension expected
+                  CALL var_check_dim(td_var)
+
                   ! update dimension if need be
                   DO ji=1,ip_maxdim
@@ -1050 +1055 @@
                   ! new number of variable in file
                   td_file%i_nvar=td_file%i_nvar-1
-
                   SELECT CASE(td_var%i_ndim)
                      CASE(0)