From 988202be80bb7199a9975f4f6a025118f8a8f19d Mon Sep 17 00:00:00 2001
From: Dethinne Thomas <tdethinne@uliege.be>
Date: Mon, 2 Dec 2024 11:19:44 +0000
Subject: [PATCH] Update call_caraib.f90
---
couplage/MAR/call_caraib.f90 | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/couplage/MAR/call_caraib.f90 b/couplage/MAR/call_caraib.f90
index 1da5989..4790ad9 100644
--- a/couplage/MAR/call_caraib.f90
+++ b/couplage/MAR/call_caraib.f90
@@ -22,6 +22,7 @@
use marcar
use mar_ge
use mar_vb
+ use marctr
IMPLICIT NONE
@@ -48,8 +49,6 @@
CASE (1)
write(6,*) "write eco"
call make_eco
- write(6,*)"nprint", nprint
- write(6,*)"nboucl", nboucl
! Check is this is the last dt of the day
CASE (2)
@@ -70,8 +69,6 @@
! +++++++++++++++++++++++
! Coupling MAR - CARAIB +
! +++++++++++++++++++++++
- write(6,*)"jhurGE",jhurGE
- write(6,*)"jsecGE",jsecGE
!create the file containing the required climatic values
call make_clim('tem','TT',3,2)
call make_clim('prc','MBrr',3,4)
@@ -138,7 +135,7 @@
write(6, *) " Maybe you do not intend to coupled MAR and CARAIB"
write(6, *) "Please check your ""coupling"" indicator in MARcar mod"
write(6, *) "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
- exit
+
END SELECT
--
GitLab