diff --git a/src/MNH/set_mask.f90 b/src/MNH/set_mask.f90 index 5880001127f60879e7dd8aa8d3f65b4185347e54..88b9711ff73bfeda46d3ab521d57b21385b76cb2 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 ! !============================================================================== !