From ef03d5eec682ed9e09e9c0203b32c5aae29f84e4 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Tue, 22 Sep 2020 17:02:48 +0200 Subject: [PATCH] Philippe 22/09/2020: IO: write 'one' dimension in synchronic files if necessary --- src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90 | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90 b/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90 index fda6a6e4b..e639e1d66 100644 --- a/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90 +++ b/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90 @@ -242,7 +242,7 @@ SUBROUTINE IO_Knowndims_set_nc4(TPFILE,HPROGRAM_ORIG) use modd_budget, only: cbutype, lbu_icp, lbu_jcp, lbu_kcp, nbuimax_ll, nbujmax_ll, nbukmax, nbumask, nbuwrnb use modd_lbc_n, only: clbcx, clbcy -USE MODD_CONF, ONLY: CPROGRAM, l2d +USE MODD_CONF, ONLY: CPROGRAM, l2d, lpack USE MODD_CONF_n, ONLY: CSTORAGE_TYPE USE MODD_DIM_n, ONLY: NIMAX_ll, NJMAX_ll, NKMAX use modd_les, only: nles_k, nspectra_k, xles_temp_mean_start, xles_temp_mean_step, xles_temp_mean_end @@ -296,11 +296,14 @@ ELSE IF (.NOT. ASSOCIATED(PIOCDF%DIMTIME)) ALLOCATE(PIOCDF%DIMTIME) END IF -!Write dimensions used in diachronic files -if ( tpfile%ctype == 'MNHDIACHRONIC' ) then - !Dimension of size 1 used for NMNHDIM_UNUSED + +if ( tpfile%ctype == 'MNHDIACHRONIC' .or. ( lpack .and. l2d ) ) then + !Dimension of size 1 used for NMNHDIM_ONE tzdimcdf => IO_Dimcdf_get_nc4( tpfile, 1_CDFINT, hdimname = 'one' ) +end if +!Write dimensions used in diachronic files +if ( tpfile%ctype == 'MNHDIACHRONIC' ) then !Dimension of size 2 used for NMNHDIM_COMPLEX tzdimcdf => IO_Dimcdf_get_nc4( tpfile, 2_CDFINT, hdimname = 'real_imaginary' ) -- GitLab