[Wien] Bug Report (SRC_wplot/modules_rc.F)

[Takashi NEMOTO]

Dear sirs, 

I found a bug that stops wplot calculation when the numbers of grids for Y and Z is diffrent.
I hope that the following patch will fix this bug.

Best regards,
T. Nemoto

==============================================
*** SRC_wplot/modules_rc.F      2016-12-06 19:09:40.000000000 +0900
--- new/SRC_wplot/modules_rc.F    2020-07-21 16:31:48.903852179 +0900
***************
*** 259,265 ****
       write(unit_psink, fmt_grid) &
            xyz(2), inwp%grid%N(2), inwp%grid%len(2), inwp%grid%ang(3)
       write(unit_psink, fmt_grid) &
!           xyz(3), inwp%grid%N(2), inwp%grid%len(3), inwp%grid%ang(2:1:-1)

       write(unit_psink, &
            "('#order: (((w(x,y,z), z=1,#z), y=1,#y), x=1,#x)')")
--- 259,265 ----
       write(unit_psink, fmt_grid) &
            xyz(2), inwp%grid%N(2), inwp%grid%len(2), inwp%grid%ang(3)
       write(unit_psink, fmt_grid) &
!           xyz(3), inwp%grid%N(3), inwp%grid%len(3), inwp%grid%ang(2:1:-1)

       write(unit_psink, &
            "('#order: (((w(x,y,z), z=1,#z), y=1,#y), x=1,#x)')")