diff --git a/src/arome/ext/aro_adjust_lima.F90 b/src/arome/ext/aro_adjust_lima.F90 index 018e5aa73e1d5aa935663ea77478e97974acf1a3..0e5c9cdc389a016340c2ef7c7f1f6766c2afd0a8 100644 --- a/src/arome/ext/aro_adjust_lima.F90 +++ b/src/arome/ext/aro_adjust_lima.F90 @@ -225,8 +225,8 @@ ZLS(:,:,:)=XLSTT +(XCPV-XCI) *(ZT(:,:,:)-XTT) ZCPH(:,:,:)=XCPD +XCPV*2.*PTSTEP*PRS(:,:,:,1) !set concentration for LIMA -PRS = PRS * PTSTEP -PSVS = PSVS * PTSTEP +PRS = PRS * 2.*PTSTEP +PSVS = PSVS * 2.*PTSTEP IF (LLIMAINIT) THEN CALL SET_CONC_LIMA (1,'ICE3',PRHODREF,PRT,PSVT) CALL SET_CONC_LIMA (1,'ICE3',PRHODREF,PRS,PSVS) @@ -234,8 +234,8 @@ ELSE CALL SET_CONC_LIMA_LBC (1,'ICE3',PRHODREF,PRT,PSVT) CALL SET_CONC_LIMA_LBC (1,'ICE3',PRHODREF,PRS,PSVS) END IF -PRS = PRS / PTSTEP -PSVS = PSVS / PTSTEP +PRS = PRS / (2.*PTSTEP) +PSVS = PSVS / (2.*PTSTEP) !print *, "aro_adjust_lima 2" !