From 93822b632c1f07aeffe4a95cd5dda32efd0b3bc1 Mon Sep 17 00:00:00 2001
From: Simon Mueller <11-smueller@users.noreply.forge.nemo-ocean.eu>
Date: Thu, 5 Jan 2023 14:07:28 +0000
Subject: [PATCH] Resolve "Misleading print statement for TOP initialization"
---
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 cacbe617..351c7108 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