Changeset 5608 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/domain.f90

Timestamp:

2015-07-17T17:40:52+02:00 (9 years ago)

Author:

jpaul

Message:

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

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/domain.f90 (modified) (5 diffs)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/domain.f90

@@ -294 +294 @@
    !
    !> @author J.Paul
-   !> - June, 2013- Initial Version
+   !> @date June, 2013- Initial Version
    !> @date September, 2014
    !> - add boundary index
@@ -362 +362 @@
 
          IF( td_mpp%i_perio < 0 .OR. td_mpp%i_perio > 6 )THEN
-            CALL logger_error("DOM INIT: invalid grid periodicity. "//&
-            &  "you should use grid_get_perio to compute it")
+            CALL logger_error("DOM INIT: invalid grid periodicity ("//&
+            &  TRIM(fct_str(td_mpp%i_perio))//&
+            &  ") you should use grid_get_perio to compute it")
          ELSE
             dom__init_mpp%i_perio0=td_mpp%i_perio
@@ -424 +425 @@
    !
    !> @author J.Paul
-   !> - June, 2013- Initial Version
+   !> @date June, 2013- Initial Version
    !> @date September, 2014
    !> - add boundary index
@@ -489 +490 @@
 
          IF( td_file%i_perio < 0 .OR. td_file%i_perio > 6 )THEN
-            CALL logger_error("DOM INIT: invalid grid periodicity. "//&
-            &  "you should use grid_get_perio to compute it")
+            CALL logger_error("DOM INIT: invalid grid periodicity ("//&
+            &  TRIM(fct_str(td_file%i_perio))//&
+            &  ") you should use grid_get_perio to compute it")
          ELSE
             dom__init_file%i_perio0=td_file%i_perio
@@ -653 +655 @@
    !>
    !> @author J.Paul
-   !> - November, 2013- Subroutine written
+   !> @date November, 2013 - Initial version
    !> @date September, 2014
    !> - use zero indice to defined cyclic or global domain