Skip to content
Snippets Groups Projects
Commit 64a672d9 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 27/02/2020: bugfix: LIMA: PNFT was not updated after LIMA_CCN_HOM_FREEZING

(cherry picked from commit deffbc2e)
parent 18a46a70
No related branches found
No related tags found
No related merge requests found
!MNH_LIC Copyright 2018-2019 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC Copyright 2013-2020 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
!----------------------------------------------------------------- !-------------------------------------------------------------------------------
! ############################### ! ###############################
MODULE MODI_LIMA_NUCLEATION_PROCS MODULE MODI_LIMA_NUCLEATION_PROCS
! ############################### ! ###############################
...@@ -69,7 +69,7 @@ SUBROUTINE LIMA_NUCLEATION_PROCS (PTSTEP, TPFILE, OCLOSE_OUT, PRHODJ, ...@@ -69,7 +69,7 @@ SUBROUTINE LIMA_NUCLEATION_PROCS (PTSTEP, TPFILE, OCLOSE_OUT, PRHODJ,
!! MODIFICATIONS !! MODIFICATIONS
!! ------------- !! -------------
!! Original 15/03/2018 !! Original 15/03/2018
!! ! P. Wautelet 27/02/2020: bugfix: PNFT was not updated after LIMA_CCN_HOM_FREEZING
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
USE MODD_PARAM_LIMA, ONLY : LCOLD, LNUCL, LMEYERS, LSNOW, LWARM, LACTI, LRAIN, LHHONI, & USE MODD_PARAM_LIMA, ONLY : LCOLD, LNUCL, LMEYERS, LSNOW, LWARM, LACTI, LRAIN, LHHONI, &
...@@ -289,6 +289,7 @@ PTHT(:,:,:) = ZTHT(:,:,:) ...@@ -289,6 +289,7 @@ PTHT(:,:,:) = ZTHT(:,:,:)
PRVT(:,:,:) = ZRVT(:,:,:) PRVT(:,:,:) = ZRVT(:,:,:)
PRIT(:,:,:) = ZRIT(:,:,:) PRIT(:,:,:) = ZRIT(:,:,:)
PCIT(:,:,:) = ZCIT(:,:,:) PCIT(:,:,:) = ZCIT(:,:,:)
PNFT(:,:,:,:) = ZNFT(:,:,:,:)
PNHT(:,:,:) = ZNHT(:,:,:) PNHT(:,:,:) = ZNHT(:,:,:)
ENDIF ENDIF
! !
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment