Changeset 12012 for NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA

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)

File:

• NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA/diamlr.F90 (modified) (1 diff)

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"