Changeset 7233 for branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/variable.f90

Timestamp:

2016-11-15T17:44:18+01:00 (7 years ago)

Author:

jpaul

Message:

see ticket #1781

File:

• branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/variable.f90 (modified) (2 diffs)

branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/variable.f90

@@ -1139 +1139 @@
    !> @date July, 2015
    !> - add unit factor (to change unit)
+   !> @date November, 2016
+   !> - allow to add scalar value
    !>
    !> @param[in] cd_name         variable name
@@ -1292 +1294 @@
          dl_value(1,1,1,:) = dd_value(:)
       ELSE
-         CALL logger_fatal("VAR INIT: can not add value from variable "//&
-         &  TRIM(cd_name)//". invalid dimension to be used")
+         IF( SIZE(dd_value(:)) > 1 )THEN
+            CALL logger_fatal("VAR INIT: can not add value from variable "//&
+            &  TRIM(cd_name)//". invalid dimension to be used")
+         ELSE
+            dl_value(1,1,1,1) = dd_value(1)
+            CALL logger_warn("VAR INIT: add scalar value for variable "//&
+            &  TRIM(cd_name))
+
+         ENDIF
       ENDIF