From f54e38463c18c0da670e6003676e9e9de4824f98 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 8 Oct 2021 15:18:53 +0200
Subject: [PATCH] Philippe 08/10/2021: remove unnecessary stage in
FIELDLIST_GOTO_MODEL
---
src/LIB/SURCOUCHE/src/mode_field.f90 | 24 ------------------------
1 file changed, 24 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_field.f90 b/src/LIB/SURCOUCHE/src/mode_field.f90
index 05c5d892c..fac837573 100644
--- a/src/LIB/SURCOUCHE/src/mode_field.f90
+++ b/src/LIB/SURCOUCHE/src/mode_field.f90
@@ -3388,30 +3388,6 @@ END IF
if (kfrom > nmodel_allocated .or. kto > nmodel_allocated ) &
call Print_msg( NVERB_FATAL, 'GEN', 'FIELDLIST_GOTO_MODEL', 'kfrom or kto > nmodel_allocated' )
!
-! Initialize some pointers
-!
-!PW: TODO: check if still necessary as XRHODREFZ and XTHVREFZ are now initialiazed in ini_modeln even for KMI/=1 (29/01/2019)
-IF (KFROM == KTO) THEN
- IF ( CPROGRAM/='NESPGD' .AND. CPROGRAM/='PGD' ) THEN
- IF (.NOT.ALLOCATED(XRHODREFZ)) CALL PRINT_MSG(NVERB_FATAL,'GEN','FIELDLIST_GOTO_MODEL','XRHODREFZ not yet allocated')
- CALL FIND_FIELD_ID_FROM_MNHNAME('RHOREFZ',IID,IRESP)
- TFIELDLIST(IID)%TFIELD_X1D(KFROM)%DATA=>XRHODREFZ
- !
- IF (.NOT.ALLOCATED(XTHVREFZ)) CALL PRINT_MSG(NVERB_FATAL,'GEN','FIELDLIST_GOTO_MODEL','XTHVREFZ not yet allocated')
- CALL FIND_FIELD_ID_FROM_MNHNAME('THVREFZ',IID,IRESP)
- TFIELDLIST(IID)%TFIELD_X1D(KFROM)%DATA=>XTHVREFZ
- END IF
-END IF
-!
-!
-!
-!
-! Save current state for allocated arrays
-!
-!
-!
-!
-!
! MODD_FIELD_n variables
!
call Goto_model_1field( 'ZWS', kfrom, kto, xzws )
--
GitLab