Changeset 11925
- Timestamp:
- 2019-11-18T15:49:54+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA/diamlr.F90
r11922 r11925 57 57 58 58 TYPE(xios_fieldgroup) :: slxhdl_fldgrp 59 TYPE(xios_filegroup) :: slxhdl_filgrp 59 60 60 61 IF(lwp) THEN … … 64 65 END IF 65 66 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 67 69 ! 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 69 72 CALL xios_get_handle("diamlr_fields", slxhdl_fldgrp) 73 CALL xios_get_handle("diamlr_files", slxhdl_filgrp) 70 74 ELSE 71 75 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);" 73 78 WRITE(numout, *) " disabling output for multiple-linear-regression analysis." 74 79 END IF
Note: See TracChangeset
for help on using the changeset viewer.