From 82b579fb542e7c6e9d6ac610c7fc5eadeb662df3 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Tue, 6 Feb 2018 15:01:32 +0100 Subject: [PATCH] Philippe 06/02/2018: IO: modify NGRID for several fields (to remove problems with PARIS_GARDEN testcase) --- src/LIB/SURCOUCHE/src/mode_field.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/LIB/SURCOUCHE/src/mode_field.f90 b/src/LIB/SURCOUCHE/src/mode_field.f90 index 3e62ade65..eeeecd985 100644 --- a/src/LIB/SURCOUCHE/src/mode_field.f90 +++ b/src/LIB/SURCOUCHE/src/mode_field.f90 @@ -2265,7 +2265,7 @@ TFIELDLIST(IDX)%CLONGNAME = 'ZENITH' TFIELDLIST(IDX)%CUNITS = 'rad' TFIELDLIST(IDX)%CDIR = 'XY' TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ZENITH' -TFIELDLIST(IDX)%NGRID = 1 +TFIELDLIST(IDX)%NGRID = 4 TFIELDLIST(IDX)%NTYPE = TYPEREAL TFIELDLIST(IDX)%NDIMS = 2 ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL)) @@ -2278,7 +2278,7 @@ TFIELDLIST(IDX)%CLONGNAME = 'AZIM' TFIELDLIST(IDX)%CUNITS = 'rad' TFIELDLIST(IDX)%CDIR = 'XY' TFIELDLIST(IDX)%CCOMMENT = 'X_Y_AZIMuth' -TFIELDLIST(IDX)%NGRID = 1 +TFIELDLIST(IDX)%NGRID = 4 TFIELDLIST(IDX)%NTYPE = TYPEREAL TFIELDLIST(IDX)%NDIMS = 2 ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL)) @@ -2317,7 +2317,7 @@ TFIELDLIST(IDX)%CLONGNAME = 'EMIS' TFIELDLIST(IDX)%CUNITS = '1' TFIELDLIST(IDX)%CDIR = 'XY' TFIELDLIST(IDX)%CCOMMENT = 'X_Y_EMISsivity' -TFIELDLIST(IDX)%NGRID = 1 +TFIELDLIST(IDX)%NGRID = 4 TFIELDLIST(IDX)%NTYPE = TYPEREAL TFIELDLIST(IDX)%NDIMS = 2 ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL)) @@ -2330,7 +2330,7 @@ TFIELDLIST(IDX)%CLONGNAME = 'TSRAD' TFIELDLIST(IDX)%CUNITS = 'K' TFIELDLIST(IDX)%CDIR = 'XY' TFIELDLIST(IDX)%CCOMMENT = 'X_Y_RADiative Surface Temperature' -TFIELDLIST(IDX)%NGRID = 1 +TFIELDLIST(IDX)%NGRID = 4 TFIELDLIST(IDX)%NTYPE = TYPEREAL TFIELDLIST(IDX)%NDIMS = 2 ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL)) -- GitLab