From 0546b2603dc7e13803208a401b85a25dbd56d322 Mon Sep 17 00:00:00 2001
From: Pierre Tulet <pierre.tulet@aero.obs-mip.fr>
Date: Mon, 22 May 2023 17:31:18 +0200
Subject: [PATCH] P.Tulet 22/02/23: passage concentration et rapport de melange
en entree au lieu des termes sources. switch to concentration and mixing
ratio as input instead of source terms.
---
src/MNH/aer_monitorn.f90 | 12 ------------
1 file changed, 12 deletions(-)
diff --git a/src/MNH/aer_monitorn.f90 b/src/MNH/aer_monitorn.f90
index 22d5f69a9..ec800306e 100644
--- a/src/MNH/aer_monitorn.f90
+++ b/src/MNH/aer_monitorn.f90
@@ -347,8 +347,6 @@ SELECT CASE (CCLOUD)
XRHODREF(IIB:IIE,IJB:IJE,IKB:IKE), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,2), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,3), &
- ZRCS(IIB:IIE,IJB:IJE,IKB:IKE), &
- ZRRS(IIB:IIE,IJB:IJE,IKB:IKE), &
ZSVDST(IIB:IIE,IJB:IJE,IKB:IKE,:), &
XTHT(IIB:IIE,IJB:IJE,IKB:IKE), &
XPABST(IIB:IIE,IJB:IJE,IKB:IKE), &
@@ -366,8 +364,6 @@ SELECT CASE (CCLOUD)
XRHODREF(IIB:IIE,IJB:IJE,IKB:IKE), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,2), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,3), &
- ZRCS(IIB:IIE,IJB:IJE,IKB:IKE), &
- ZRRS(IIB:IIE,IJB:IJE,IKB:IKE), &
ZSVDST(IIB:IIE,IJB:IJE,IKB:IKE,:), &
XTHT(IIB:IIE,IJB:IJE,IKB:IKE), &
XPABST(IIB:IIE,IJB:IJE,IKB:IKE), &
@@ -385,8 +381,6 @@ CASE ('LIMA')
XRHODREF(IIB:IIE,IJB:IJE,IKB:IKE), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,2), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,3), &
- ZRCS(IIB:IIE,IJB:IJE,IKB:IKE), &
- ZRRS(IIB:IIE,IJB:IJE,IKB:IKE), &
ZSVDST(IIB:IIE,IJB:IJE,IKB:IKE,:), &
XTHT(IIB:IIE,IJB:IJE,IKB:IKE), &
XPABST(IIB:IIE,IJB:IJE,IKB:IKE), &
@@ -537,8 +531,6 @@ SELECT CASE (CCLOUD)
XRHODREF(IIB:IIE,IJB:IJE,IKB:IKE), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,2), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,3), &
- ZRCS(IIB:IIE,IJB:IJE,IKB:IKE), &
- ZRRS(IIB:IIE,IJB:IJE,IKB:IKE), &
ZSVSLT(IIB:IIE,IJB:IJE,IKB:IKE,:), &
XTHT(IIB:IIE,IJB:IJE,IKB:IKE), &
XPABST(IIB:IIE,IJB:IJE,IKB:IKE), &
@@ -556,8 +548,6 @@ SELECT CASE (CCLOUD)
XRHODREF(IIB:IIE,IJB:IJE,IKB:IKE), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,2), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,3), &
- ZRCS(IIB:IIE,IJB:IJE,IKB:IKE), &
- ZRRS(IIB:IIE,IJB:IJE,IKB:IKE), &
ZSVSLT(IIB:IIE,IJB:IJE,IKB:IKE,:), &
XTHT(IIB:IIE,IJB:IJE,IKB:IKE), &
XPABST(IIB:IIE,IJB:IJE,IKB:IKE), &
@@ -574,8 +564,6 @@ SELECT CASE (CCLOUD)
XRHODREF(IIB:IIE,IJB:IJE,IKB:IKE), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,2), &
XRT(IIB:IIE,IJB:IJE,IKB:IKE,3), &
- ZRCS(IIB:IIE,IJB:IJE,IKB:IKE), &
- ZRRS(IIB:IIE,IJB:IJE,IKB:IKE), &
ZSVSLT(IIB:IIE,IJB:IJE,IKB:IKE,:), &
XTHT(IIB:IIE,IJB:IJE,IKB:IKE), &
XPABST(IIB:IIE,IJB:IJE,IKB:IKE), &
--
GitLab