Commit 8a73a328 authored by ymeur's avatar ymeur
Browse files

Make vertical remap working for 4D field

YM
parent 71b9bed8
Pipeline #157225 failed with stages
in 1 minute and 2 seconds
......@@ -20,7 +20,7 @@ CONTAINS
REAL(rstd),POINTER :: out(:,:)
REAL(rstd),POINTER :: p(:,:)
INTEGER :: ind
INTEGER :: ind,iq
CALL allocate_field(f_p,field_t,type_real,llm+1)
CALL pression(f_ps,f_p)
......@@ -30,11 +30,14 @@ CONTAINS
CALL swap_dimensions(ind)
CALL swap_geometry(ind)
p=f_p(ind)
in=field_in(ind)
out=field_out(ind)
CALL compute_vertical_remap(pressure_level,in,p,out)
DO iq=1,field_out(ind)%dim4
in=>field_in(ind)%rval4d(:,:,iq)
out=>field_out(ind)%rval4d(:,:,iq)
CALL compute_vertical_remap(pressure_level,in,p,out)
ENDDO
ENDDO
CALL deallocate_field(f_p)
END SUBROUTINE vertical_remap
SUBROUTINE compute_vertical_remap(pressure_level,in,p,out)
......
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