- Timestamp:
- 2019-11-26T19:44:40+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
r11971 r11972 243 243 IF ( lwp ) WRITE(numout,'(a,i3,a)' ) 'diamlr: ', ifld, ' fields selected for analysis' 244 244 245 ! Set up output of minimum, maximum, and average values of the time 246 ! variable available for the computation of regressors (diamlr_time) 247 CALL xios_get_handle( "diamlr_file_scalar", slxhdl_fil ) 248 CALL xios_add_child ( slxhdl_fil, slxhdl_fld, "diamlr_time_average" ) 249 CALL xios_set_attr ( slxhdl_fld, standard_name="diamlr_time", & 250 & long_name="Elapsed model time at start of regression interval", & 251 & unit="s", operation="average", field_ref="diamlr_time", & 252 & grid_ref="diamlr_grid_2D_to_scalar" ) 253 CALL xios_add_child ( slxhdl_fil, slxhdl_fld, "diamlr_time_minimum" ) 254 CALL xios_set_attr ( slxhdl_fld, standard_name="diamlr_time", & 255 & long_name="Elapsed model time at start of regression interval", & 256 & unit="s", operation="minimum", field_ref="diamlr_time", & 257 & grid_ref="diamlr_grid_2D_to_scalar" ) 258 CALL xios_add_child ( slxhdl_fil, slxhdl_fld, "diamlr_time_maximum" ) 259 CALL xios_set_attr ( slxhdl_fld, standard_name="diamlr_time", & 260 & long_name="Elapsed model time at start of regression interval", & 261 & unit="s", operation="maximum", field_ref="diamlr_time", & 262 & grid_ref="diamlr_grid_2D_to_scalar" ) 263 245 264 ! For each active regressor: 246 265 DO jm = 1, ireg … … 295 314 END DO 296 315 297 ! iii) set up definitions for the output of scalar products with316 ! iv) set up definitions for the output of scalar products with 298 317 ! fields selected for analysis 299 318 DO jn = 1, ifld
Note: See TracChangeset
for help on using the changeset viewer.