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

Philippe 08/09/2017: IO: bug correction: missing TZFIELD metadata

parent dcde0b6f
No related branches found
No related tags found
No related merge requests found
......@@ -510,6 +510,13 @@ IF (NSV >=1) THEN
END IF
END IF
!
TZFIELD%CSTDNAME = ''
TZFIELD%CUNITS = 'kg kg-1'
TZFIELD%CDIR = 'XY'
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
!
DO JSV = NSV_CHEMBEG,NSV_CHEMEND
IF(NSIZELBXSV_ll /= 0) THEN
TZFIELD%CMNHNAME = 'LBX_'//TRIM(UPCASE(CNAMES(JSV-NSV_CHEMBEG+1)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment