From 3eaa658f766ddbc6c53a1d08358aee35927dbb80 Mon Sep 17 00:00:00 2001 From: Juan Escobar <escj@aero.obs-mip.fr> Date: Thu, 2 Feb 2017 15:37:25 +0100 Subject: [PATCH] Juan & JPP 02/02/2017:set_mask.f90, bug for 1 model only <-> remove unneeded FIELD_MODEL% --- src/MNH/set_mask.f90 | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/MNH/set_mask.f90 b/src/MNH/set_mask.f90 index 588000112..88b9711ff 100644 --- a/src/MNH/set_mask.f90 +++ b/src/MNH/set_mask.f90 @@ -5,7 +5,7 @@ !----------------------------------------------------------------- !--------------- special set of characters for RCS information !----------------------------------------------------------------- -! $Source$ $Revision$ +! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/set_mask.f90,v $ $Revision: 1.2.2.1.2.1.18.2 $ ! MASDEV4_7 budget 2006/09/08 10:35:15 !----------------------------------------------------------------- ! ################### @@ -57,6 +57,7 @@ !! Modification 18/06/99 (N.Asencio) : // , computation are performed on the extended !! domain but logical array mask is initialized !! to FALSE outside the physical domain +!! 02/02/2017 (J.Escobar & JPP ) bug for 1 model only <-> remove unneeded FIELD_MODEL% !--------------------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -64,7 +65,7 @@ ! USE MODD_BUDGET USE MODE_ll -USE MODD_FIELD_n, ONLY : FIELD_MODEL +USE MODD_FIELD_n , ONLY : XWT , XRT ! ! IMPLICIT NONE @@ -94,11 +95,11 @@ LBU_MASK(:,:,:)=.FALSE. ! Change the following lines to set the criterion for each of the NBUMASK masks ! ! 1st mask on vertical velocity at level k=10 -LBU_MASK(IIB:IIE,IJB:IJE,1)=FIELD_MODEL(NBUMOD)%XWT(IIB:IIE,IJB:IJE,10)>0. +LBU_MASK(IIB:IIE,IJB:IJE,1)=XWT(IIB:IIE,IJB:IJE,10)>0. ! !2rd mask on rain mixing ratio at level k=2 IF (NBUMASK>=2) & - LBU_MASK(IIB:IIE,IJB:IJE,2)=FIELD_MODEL(NBUMOD)%XRT(IIB:IIE,IJB:IJE,2,3)>1.E-8 + LBU_MASK(IIB:IIE,IJB:IJE,2)=XRT(IIB:IIE,IJB:IJE,2,3)>1.E-8 ! !============================================================================== ! -- GitLab