From f63fd9be33a87f5207bd7ff6d24edaf54cba5924 Mon Sep 17 00:00:00 2001
From: Simon Mueller <11-smueller@users.noreply.forge.nemo-ocean.eu>
Date: Mon, 30 Jan 2023 13:46:17 +0000
Subject: [PATCH] Resolve "Misleading print statement for TOP initialization"
('main')
---
src/TOP/trcnam.F90 | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/src/TOP/trcnam.F90 b/src/TOP/trcnam.F90
index 80a181e0..a2ef9a33 100644
--- a/src/TOP/trcnam.F90
+++ b/src/TOP/trcnam.F90
@@ -62,16 +62,12 @@ CONTAINS
!
!
IF(lwp) THEN ! control print
+ WRITE(numout,*)
IF( ln_rsttr ) THEN
- WRITE(numout,*)
WRITE(numout,*) ' ==>>> Read a restart file for passive tracer : ', TRIM( cn_trcrst_in )
- ENDIF
- IF( ln_trcdta .AND. .NOT.ln_rsttr ) THEN
- WRITE(numout,*)
+ ELSE IF( ln_trcdta ) THEN
WRITE(numout,*) ' ==>>> Some of the passive tracers are initialised from climatologies '
- ENDIF
- IF( .NOT.ln_trcdta ) THEN
- WRITE(numout,*)
+ ELSE
WRITE(numout,*) ' ==>>> All the passive tracers are initialised with constant values '
ENDIF
ENDIF
--
GitLab