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

Philippe 26/11/2018: correction of metadata for some LIMA fields

parent 2d47e3db
No related branches found
No related tags found
No related merge requests found
...@@ -1131,7 +1131,7 @@ IF ( OCLOSE_OUT ) THEN ...@@ -1131,7 +1131,7 @@ IF ( OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1 TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3 TZFIELD%NDIMS = 3
TZFIELD%LTIMEDEP = .FALSE. TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW) CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW)
END IF END IF
! !
...@@ -1186,7 +1186,7 @@ IF ( OCLOSE_OUT ) THEN ...@@ -1186,7 +1186,7 @@ IF ( OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1 TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3 TZFIELD%NDIMS = 3
TZFIELD%LTIMEDEP = .FALSE. TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW) CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW)
END IF END IF
! !
......
...@@ -459,26 +459,26 @@ END IF ! INUCT ...@@ -459,26 +459,26 @@ END IF ! INUCT
IF ( OCLOSE_OUT ) THEN IF ( OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME ='SMAX' TZFIELD%CMNHNAME ='SMAX'
TZFIELD%CSTDNAME = '' TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME) TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = '' TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY' TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SMAX' TZFIELD%CCOMMENT = 'X_Y_Z_SMAX'
TZFIELD%NGRID = 1 TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3 TZFIELD%NDIMS = 3
TZFIELD%LTIMEDEP = .FALSE. TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW) CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW)
! !
TZFIELD%CMNHNAME ='NACT' TZFIELD%CMNHNAME ='NACT'
TZFIELD%CSTDNAME = '' TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME) TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = '/kg' TZFIELD%CUNITS = 'kg-1'
TZFIELD%CDIR = 'XY' TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_NACT' TZFIELD%CCOMMENT = 'X_Y_Z_NACT'
TZFIELD%NGRID = 1 TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3 TZFIELD%NDIMS = 3
TZFIELD%LTIMEDEP = .FALSE. TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW2) CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW2)
END IF END IF
! !
......
...@@ -527,26 +527,26 @@ DEALLOCATE(ZCTMIN) ...@@ -527,26 +527,26 @@ DEALLOCATE(ZCTMIN)
IF ( OCLOSE_OUT ) THEN IF ( OCLOSE_OUT ) THEN
TZFIELD%CMNHNAME ='SMAX' TZFIELD%CMNHNAME ='SMAX'
TZFIELD%CSTDNAME = '' TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME) TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = '' TZFIELD%CUNITS = ''
TZFIELD%CDIR = 'XY' TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_SMAX' TZFIELD%CCOMMENT = 'X_Y_Z_SMAX'
TZFIELD%NGRID = 1 TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3 TZFIELD%NDIMS = 3
TZFIELD%LTIMEDEP = .TRUE. TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW) CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW)
! !
TZFIELD%CMNHNAME ='NACT' TZFIELD%CMNHNAME ='NACT'
TZFIELD%CSTDNAME = '' TZFIELD%CSTDNAME = ''
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME) TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
TZFIELD%CUNITS = '/kg' TZFIELD%CUNITS = 'kg-1'
TZFIELD%CDIR = 'XY' TZFIELD%CDIR = 'XY'
TZFIELD%CCOMMENT = 'X_Y_Z_NACT' TZFIELD%CCOMMENT = 'X_Y_Z_NACT'
TZFIELD%NGRID = 1 TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3 TZFIELD%NDIMS = 3
TZFIELD%LTIMEDEP = .FALSE. TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW2) CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW2)
END IF END IF
! !
......
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