Changeset 7153 for branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/create_coord.f90

Timestamp:

2016-10-28T11:13:57+02:00 (8 years ago)

Author:

jpaul

Message:

see ticket #1781

File:

• branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/create_coord.f90 (modified) (8 diffs)

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

@@ -44 +44 @@
 !>       - cn_varcfg : variable configuration file 
 !> (see ./SIREN/cfg/variable.cfg)
+!>       - cn_dimcfg : dimension configuration file. define dimension allowed to
+!> be used (see ./SIREN/cfg/dimension.cfg).
 !>       - cn_dumcfg : useless (dummy) configuration file, for useless 
 !> dimension or variable (see ./SIREN/cfg/dummy.cfg).
@@ -110 +112 @@
 !> @date September, 2016
 !> - allow to use coordinate to define subdomain
+!> @date October, 2016
+!> - dimension to be used select from configuration file
 !>
 !> @note Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
@@ -181 +185 @@
    ! namcfg
    CHARACTER(LEN=lc) :: cn_varcfg = './cfg/variable.cfg' 
+   CHARACTER(LEN=lc) :: cn_dimcfg = './cfg/dimension.cfg' 
    CHARACTER(LEN=lc) :: cn_dumcfg = './cfg/dummy.cfg'
 
@@ -213 +218 @@
    NAMELIST /namcfg/ &  !  config namelist
    &  cn_varcfg, &       !< variable configuration file
+   &  cn_dimcfg, &       !< dimension configuration file
    &  cn_dumcfg          !< dummy configuration file
 
@@ -277 +283 @@
       CALL var_def_extra(TRIM(cn_varcfg))
 
+      ! get dimension allowed
+      CALL dim_def_extra(TRIM(cn_dimcfg))
+
       ! get dummy variable
       CALL var_get_dummy(TRIM(cn_dumcfg))
@@ -340 +349 @@
    IF( rn_lonmax0 >= -180. .AND. rn_lonmax0 <= 360 .AND. &
      & rn_latmax0 >= -90.  .AND. rn_latmax0 <= 90. )THEN
+
       il_index(:)=grid_get_closest(tl_coord0, &
          &                         REAL(rn_lonmax0,dp), REAL(rn_latmax0,dp), &
@@ -481 +491 @@
    IF( il_attid == 0 )THEN
       il_ind=var_get_index(tl_fileout%t_var(:),'longitude')
+      IF( il_ind == 0 )THEN
+         il_ind=var_get_index(tl_fileout%t_var(:),'longitude_T')
+      ENDIF
       il_ew=grid_get_ew_overlap(tl_fileout%t_var(il_ind))
       IF( il_ew >= 0 )THEN
@@ -503 +516 @@
 
    CALL file_clean(tl_fileout)
+   CALL var_clean_extra()
 
    ! close log file