Skip to content
Snippets Groups Projects
Commit e0c92355 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 17/04/2024: output: boxes: rename the dimensions to be similar to the... 

Philippe 17/04/2024: output: boxes: rename the dimensions to be similar to the main domain ones (allowed by CF conventions)
parent 424ce6c0
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90
+ 16
− 16
View file @ e0c92355
...@@ -401,14 +401,14 @@ if ( tpfile%ctype == 'MNHOUTPUT' ) then ...@@ -401,14 +401,14 @@ if ( tpfile%ctype == 'MNHOUTPUT' ) then
Allocate( tpfile%tboxncdims(jbox)%tdims(NMNHDIM_BOX_FIRST_ENTRY:NMNHDIM_BOX_LAST_ENTRY) ) Allocate( tpfile%tboxncdims(jbox)%tdims(NMNHDIM_BOX_FIRST_ENTRY:NMNHDIM_BOX_LAST_ENTRY) )
!Write the box dimensions !Write the box dimensions
call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NI, 'box_ni', tout_boxes(jbox)%nisup-tout_boxes(jbox)%niinf+1 ) call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NI, 'ni', tout_boxes(jbox)%nisup-tout_boxes(jbox)%niinf+1 )
call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NI_U, 'box_ni_u', tout_boxes(jbox)%nisup-tout_boxes(jbox)%niinf+1 ) call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NI_U, 'ni_u', tout_boxes(jbox)%nisup-tout_boxes(jbox)%niinf+1 )
call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NI_V, 'box_ni_v', tout_boxes(jbox)%nisup-tout_boxes(jbox)%niinf+1 ) call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NI_V, 'ni_v', tout_boxes(jbox)%nisup-tout_boxes(jbox)%niinf+1 )
call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NJ, 'box_nj', tout_boxes(jbox)%njsup-tout_boxes(jbox)%njinf+1 ) call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NJ, 'nj', tout_boxes(jbox)%njsup-tout_boxes(jbox)%njinf+1 )
call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NJ_U, 'box_nj_u', tout_boxes(jbox)%njsup-tout_boxes(jbox)%njinf+1 ) call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NJ_U, 'nj_u', tout_boxes(jbox)%njsup-tout_boxes(jbox)%njinf+1 )
call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NJ_V, 'box_nj_v', tout_boxes(jbox)%njsup-tout_boxes(jbox)%njinf+1 ) call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_NJ_V, 'nj_v', tout_boxes(jbox)%njsup-tout_boxes(jbox)%njinf+1 )
call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_LEVEL, 'box_level', tout_boxes(jbox)%nksup-tout_boxes(jbox)%nkinf+1 ) call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_LEVEL, 'level', tout_boxes(jbox)%nksup-tout_boxes(jbox)%nkinf+1 )
call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_LEVEL_W, 'box_level_w', tout_boxes(jbox)%nksup-tout_boxes(jbox)%nkinf+1 ) call IO_Add_dim_box_nc4( tpfile, jbox, NMNHDIM_BOX_LEVEL_W, 'level_w', tout_boxes(jbox)%nksup-tout_boxes(jbox)%nkinf+1 )
!Write the box attributes !Write the box attributes
call IO_box_attribute_write_nc4( tpfile, jbox, 'min_I_index_in_physical_domain', tout_boxes(jbox)%niinf ) call IO_box_attribute_write_nc4( tpfile, jbox, 'min_I_index_in_physical_domain', tout_boxes(jbox)%niinf )
...@@ -753,21 +753,21 @@ if ( Any( tpfield%ndimlist(:) /= NMNHDIM_UNKNOWN ) ) then ...@@ -753,21 +753,21 @@ if ( Any( tpfield%ndimlist(:) /= NMNHDIM_UNKNOWN ) ) then
if ( tpfield%ndimlist(ji) >= NMNHDIM_BOX_FIRST_ENTRY .AND. tpfield%ndimlist(ji) <= NMNHDIM_BOX_LAST_ENTRY ) then if ( tpfield%ndimlist(ji) >= NMNHDIM_BOX_FIRST_ENTRY .AND. tpfield%ndimlist(ji) <= NMNHDIM_BOX_LAST_ENTRY ) then
select case ( tpfield%ndimlist(ji) ) select case ( tpfield%ndimlist(ji) )
case ( NMNHDIM_BOX_NI ) case ( NMNHDIM_BOX_NI )
call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'box_ni', tpfield%cmnhname, kshape(ji), kvdims(ji)) call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'ni', tpfield%cmnhname, kshape(ji), kvdims(ji))
case ( NMNHDIM_BOX_NJ ) case ( NMNHDIM_BOX_NJ )
call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'box_nj', tpfield%cmnhname, kshape(ji), kvdims(ji)) call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'nj', tpfield%cmnhname, kshape(ji), kvdims(ji))
case ( NMNHDIM_BOX_NI_U ) case ( NMNHDIM_BOX_NI_U )
call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'box_ni_u', tpfield%cmnhname, kshape(ji), kvdims(ji)) call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'ni_u', tpfield%cmnhname, kshape(ji), kvdims(ji))
case ( NMNHDIM_BOX_NJ_U ) case ( NMNHDIM_BOX_NJ_U )
call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'box_nj_u', tpfield%cmnhname, kshape(ji), kvdims(ji)) call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'nj_u', tpfield%cmnhname, kshape(ji), kvdims(ji))
case ( NMNHDIM_BOX_NI_V ) case ( NMNHDIM_BOX_NI_V )
call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'box_ni_v', tpfield%cmnhname, kshape(ji), kvdims(ji)) call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'ni_v', tpfield%cmnhname, kshape(ji), kvdims(ji))
case ( NMNHDIM_BOX_NJ_V ) case ( NMNHDIM_BOX_NJ_V )
call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'box_nj_v', tpfield%cmnhname, kshape(ji), kvdims(ji)) call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'nj_v', tpfield%cmnhname, kshape(ji), kvdims(ji))
case ( NMNHDIM_BOX_LEVEL ) case ( NMNHDIM_BOX_LEVEL )
call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'box_level', tpfield%cmnhname, kshape(ji), kvdims(ji)) call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'level', tpfield%cmnhname, kshape(ji), kvdims(ji))
case ( NMNHDIM_BOX_LEVEL_W ) case ( NMNHDIM_BOX_LEVEL_W )
call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'box_level_w', tpfield%cmnhname, kshape(ji), kvdims(ji)) call IO_Dim_localgroup_check( tpfile%nncid, tpfield%ndimlist(ji), 'level_w', tpfield%cmnhname, kshape(ji), kvdims(ji))
case default case default
call Print_msg( NVERB_FATAL, 'IO', 'IO_Vdims_fill_nc4', 'invalid box dimension' ) call Print_msg( NVERB_FATAL, 'IO', 'IO_Vdims_fill_nc4', 'invalid box dimension' )
end select end select
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme