Changeset 11925


Ignore:
Timestamp:
2019-11-18T15:49:54+01:00 (9 months ago)
Author:
smueller
Message:

Extension of the test for the existence of a regression-analysis configuration in the IOM context setup for multiple-linear-regression analysis (ticket #2175)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA/diamlr.F90

    r11922 r11925  
    5757 
    5858      TYPE(xios_fieldgroup)  ::   slxhdl_fldgrp 
     59      TYPE(xios_filegroup)   ::   slxhdl_filgrp 
    5960 
    6061      IF(lwp) THEN 
     
    6465      END IF 
    6566 
    66       ! Get handle to multiple-linear-regression analysis configuration; if no 
     67      ! Get handles to multiple-linear-regression analysis configuration (field 
     68      ! group 'diamrl_fields' and file group 'diamlr_files'); if no suitable 
    6769      ! configuration is found, disable diamlr 
    68       IF ( lk_diamlr .AND. xios_is_valid_fieldgroup( "diamlr_fields" ) .AND. xios_is_valid_field( "diamlr_time" ) ) THEN 
     70      IF ( lk_diamlr .AND. xios_is_valid_fieldgroup( "diamlr_fields" ) .AND. xios_is_valid_field( "diamlr_time" ) .AND.   & 
     71         & xios_is_valid_filegroup( "diamlr_files" ) ) THEN 
    6972         CALL xios_get_handle("diamlr_fields",  slxhdl_fldgrp) 
     73         CALL xios_get_handle("diamlr_files",   slxhdl_filgrp) 
    7074      ELSE 
    7175         IF (lwp) THEN 
    72             WRITE(numout, *) "diamlr: no configuration found (field group 'diamlr_fields' is missing);" 
     76            WRITE(numout, *) "diamlr: configuration not found or icomplete (field group 'diamlr_fields'" 
     77            WRITE(numout, *) "        and/or file group 'diamlr_files' and/or field 'diamlr_time' missing);" 
    7378            WRITE(numout, *) "        disabling output for multiple-linear-regression analysis." 
    7479         END IF 
Note: See TracChangeset for help on using the changeset viewer.