Browse Source

Reduce debug level in generated namcouple file.

OASIS is more silent in release (production) configuration.
However, if we build in debug mode, we still get exchanged variables as nc files.
3-reduce-debug-output
Sven Karsten 2 years ago
parent
commit
1f03c00913
  1. 14
      src/flux_calculator_create_namcouple.F90

14
src/flux_calculator_create_namcouple.F90

@ -27,7 +27,11 @@ MODULE flux_calculator_create_namcouple
WRITE(w_namcouple,*) '############################################'
WRITE(w_namcouple,*) ' $NLOGPRT'
#ifdef IOW_ESM_DEBUG
WRITE(w_namcouple,*) '1 1'
#else
WRITE(w_namcouple,*) '0 1' !TODO: eventually set the second 1 to 0 (= timings are calculated)
#endif
WRITE(w_namcouple,*) ' $END'
WRITE(w_namcouple,*) '############################################'
WRITE(w_namcouple,*) ' $STRINGS'
@ -95,9 +99,15 @@ MODULE flux_calculator_create_namcouple
! write entry
IF (my_io == 'R') THEN
WRITE(w_namcouple,*) counterpart, ' ', io_field%name, ' 1 ', timestep, ' 2 restart_flc_'//TRIM(io_field%name(3:6))//'_'//TRIM(my_model_name)//'.nc EXPOUT'
#ifdef IOW_ESM_DEBUG
WRITE(w_namcouple, '(A, A, A, A, I0, A)') counterpart, ' ', io_field%name, ' 1 ', timestep, ' 2 restart_flc_'//TRIM(io_field%name(3:6))//'_'//TRIM(my_model_name)//'.nc EXPOUT'
ELSE
WRITE(w_namcouple,*) io_field%name, ' ', counterpart, ' 1 ', timestep, ' 2 restart_flc_'//TRIM(io_field%name(3:6))//'_'//TRIM(my_model_name)//'.nc EXPOUT'
WRITE(w_namcouple, '(A, A, A, A, I0, A)') io_field%name, ' ', counterpart, ' 1 ', timestep, ' 2 restart_flc_'//TRIM(io_field%name(3:6))//'_'//TRIM(my_model_name)//'.nc EXPOUT'
#else
WRITE(w_namcouple, '(A, A, A, A, I0, A)') counterpart, ' ', io_field%name, ' 1 ', timestep, ' 2 restart_flc_'//TRIM(io_field%name(3:6))//'_'//TRIM(my_model_name)//'.nc EXPORTED'
ELSE
WRITE(w_namcouple, '(A, A, A, A, I0, A)') io_field%name, ' ', counterpart, ' 1 ', timestep, ' 2 restart_flc_'//TRIM(io_field%name(3:6))//'_'//TRIM(my_model_name)//'.nc EXPORTED'
#endif
ENDIF
WRITE(w_namcouple,*) remapping_info%src_grid_dims, remapping_info%dst_grid_dims, '___ ___ LAG=0' ! TODO: get rid off string literals here
WRITE(w_namcouple,*) "R 0 R 0"

Loading…
Cancel
Save