Skip to content
Snippets Groups Projects
Commit 18abe882 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 12/07/2021: bugfix revert from commit fde83373 for initialization of...

Quentin 12/07/2021: bugfix revert from commit fde83373 for initialization of IPROC number of variable to write
parent 25720d55
Branches
No related tags found
No related merge requests found
......@@ -157,7 +157,7 @@ type(tfield_metadata_base), dimension(:), allocatable :: tzfields
IF (TSTATION%X(II)==XUNDEF) RETURN
IF (TSTATION%Y(II)==XUNDEF) RETURN
!
IPROC = 6 + SIZE(TSTATION%R,3) + SIZE(TSTATION%SV,3)
IPROC = 8 + SIZE(TSTATION%R,3) + SIZE(TSTATION%SV,3)
IF (TSTATION%X(II)==XUNDEF) IPROC = IPROC + 2
IF (SIZE(TSTATION%TKE )>0) IPROC = IPROC + 1
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment