Changeset 12012

Timestamp:

2019-11-29T16:06:26+01:00 (4 years ago)

Author:

smueller

Message:

Further modification that completes the enabling of the grid-type propagation started with [12010] (ticket #2175)

Location:

NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis

Files:

• cfgs/SHARED/field_def_nemo-oce.xml (modified) (1 diff)
• src/OCE/DIA/diamlr.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/cfgs/SHARED/field_def_nemo-oce.xml

@@ -70 +70 @@
 
       <!-- Fields selected for regression analysis -->
-      <field id="diamlr_f001" field_ref="ssh"  grid_ref="grid_T_2D" enabled=".TRUE." />
+      <field id="diamlr_f001" field_ref="ssh" enabled=".TRUE." />
 
     </field_group>

NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA/diamlr.F90

@@ -336 +336 @@
             !      fields selected for analysis
             DO jn = 1, ifld
-               CALL xios_get_attr( slxhdl_flds(jn), name=clxatt_name2, grid_ref=clxatt_gridref, field_ref=clxatt_fieldref )
+               CALL xios_get_attr  ( slxhdl_flds(jn), name=clxatt_name2, field_ref=clxatt_fieldref )
+               CALL xios_get_handle( TRIM( clxatt_fieldref ), slxhdl_fld )
+               CALL xios_get_attr  ( slxhdl_fld, grid_ref=clxatt_gridref )
                clgt="T"
                IF ( INDEX( clxatt_gridref, "_U_" ) > 0 ) clgt="U"