Commit 9ed321e3 authored by Thomas Dubos's avatar Thomas Dubos
Browse files

Avoid bug in phys-dyn interface

parent e448893d
Pipeline #127494 failed with stages
in 61 minutes and 14 seconds
......@@ -369,6 +369,7 @@ CONTAINS
q=f_q(ind)
dulon=f_dulon(ind)
dulat=f_dulat(ind)
! also updates temp and q
CALL unpack_physics(pack_info(ind), ps, temp, q, dulon, dulat)
END DO
......
......@@ -120,7 +120,7 @@ CONTAINS
INTEGER, DIMENSION(jjm) :: n
INTEGER :: ngrid, nseg, i, j, jj, k
INTEGER, PARAMETER :: method=3
INTEGER, PARAMETER :: method=1
SELECT CASE(method)
CASE(1) ! Copy all points, including halo (works)
info%nseg=1
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment