From d6efb9ad5424e954ae7439431de349733b8988a8 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Fri, 28 Oct 2022 15:40:10 +0200 Subject: [PATCH] Philippe 28/10/2022: small bugfix: use correct index for YJSV --- src/MNH/ground_paramn.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/MNH/ground_paramn.f90 b/src/MNH/ground_paramn.f90 index 986441cfd..1be86f91f 100644 --- a/src/MNH/ground_paramn.f90 +++ b/src/MNH/ground_paramn.f90 @@ -761,12 +761,12 @@ NULLIFY(TZFIELDSURF_ll) ! CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PSFU, 'GROUND_PARAM_n::PSFU' ) ! CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PSFV, 'GROUND_PARAM_n::PSFV' ) DO JLAYER = 1, SIZE( PDIR_ALB, 3 ) - WRITE( YJSV, '( I6.6 )' ) JSV + WRITE( YJSV, '( I6.6 )' ) JLAYER CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PDIR_ALB(:,:,JLAYER), 'GROUND_PARAM_n::PDIR_ALB'//YJSV ) CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PSCA_ALB(:,:,JLAYER), 'GROUND_PARAM_n::PSCA_ALB'//YJSV ) END DO DO JLAYER = 1, SIZE( PEMIS, 3 ) - WRITE( YJSV, '( I6.6 )' ) JSV + WRITE( YJSV, '( I6.6 )' ) JLAYER CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PEMIS(:,:,JLAYER), 'GROUND_PARAM_n::PEMIS'//YJSV ) END DO CALL ADD2DFIELD_ll( TZFIELDSURF_ll,PTSRAD, 'GROUND_PARAM_n::PTSRAD' ) -- GitLab