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

Philippe 14/01/2022: there is only one (or zero) NSV_LNOX scalar variable

parent 5931f1b8
No related branches found
No related tags found
No related merge requests found
......@@ -1156,15 +1156,20 @@ DO JSV = NSV_SNWBEG_A(KMI), NSV_SNWEND_A(KMI)
LTIMEDEP = .TRUE. )
END DO
!Check if there is at most 1 LINOX scalar variable
!if not, the name must be modified and different for all of them
IF ( NSV_LNOX_A(KMI) > 1 ) &
CALL Print_msg( NVERB_ERROR, 'GEN', 'INI_NSV', 'NSV_LNOX_A>1: problem with the names of the corresponding scalar variables' )
DO JSV = NSV_LNOXBEG_A(KMI), NSV_LNOXEND_A(KMI)
WRITE( YNUM3, '( I3.3 )' ) JSV-NSV_LNOXBEG_A(KMI)+1
CSVNAMES_A(JSV,KMI) = 'LINOX'
CSVNAMES_A(JSV,KMI) = 'SVLNOX'//YNUM3
WRITE( YNUM3, '( I3.3 )' ) JSV
TSVLIST_A(JSV, KMI) = TFIELDMETADATA( &
CMNHNAME = 'SVLNOX' // YNUM3, &
CMNHNAME = 'LINOX', &
CSTDNAME = '', &
CLONGNAME = 'SVLNOX' // YNUM3, &
CLONGNAME = 'LINOX', &
CUNITS = 'ppv', &
CDIR = 'XY', &
CCOMMENT = 'X_Y_Z_' // 'SVT' // YNUM3, &
......
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