From ced9d29a479e56ffb46e484db2de163a42bcb870 Mon Sep 17 00:00:00 2001
From: Thomas Dethinne <tdethinne@uliege.be>
Date: Fri, 8 Nov 2024 16:43:42 +0100
Subject: [PATCH] Found the solution for the spin up i think
---
.../caraib_main_01_Iv_couplage.F | 16 ++++++++--------
couplage/MAR/call_caraib.f90 | 4 ++++
2 files changed, 12 insertions(+), 8 deletions(-)
diff --git a/couplage/CARAIB/ver01_Iv_couplage/caraib_main_01_Iv_couplage.F b/couplage/CARAIB/ver01_Iv_couplage/caraib_main_01_Iv_couplage.F
index 58212c0..8d51044 100644
--- a/couplage/CARAIB/ver01_Iv_couplage/caraib_main_01_Iv_couplage.F
+++ b/couplage/CARAIB/ver01_Iv_couplage/caraib_main_01_Iv_couplage.F
@@ -301,7 +301,7 @@ c=======================================================================
endif !(num_ncdf)
c=======================================================================
-c i dont know
+c Read or generate temperature ?
c=======================================================================
@@ -324,7 +324,7 @@ c=======================================================================
endif !(incdf_tem)
c=======================================================================
-c i dont know
+c Read or generate temperature max ?
c=======================================================================
if (incdf_dta.eq.1) then
@@ -347,7 +347,7 @@ c=======================================================================
endif !(incdf_dta)
c=======================================================================
-c i dont know
+c Read or generate temperature min ?
c=======================================================================
@@ -370,7 +370,7 @@ c=======================================================================
endif !(idtem)
c=======================================================================
-c i dont know
+c Read or generate precip ?
c=======================================================================
@@ -394,7 +394,7 @@ c=======================================================================
endif
c=======================================================================
-c i dont know
+c Read or generate sunshine hour ?
c=======================================================================
if (incdf_shi.eq.1) then
@@ -415,7 +415,7 @@ c=======================================================================
endif
c=======================================================================
-c i dont know
+c Read or generate Relative humidity ?
c=======================================================================
if (incdf_rhu.eq.1) then
@@ -435,7 +435,7 @@ c=======================================================================
endif
c=======================================================================
-c i dont know
+c Read or generate windspeed ?
c=======================================================================
if (incdf_win.eq.1) then
@@ -460,7 +460,7 @@ c=======================================================================
c#######################################################################
c=======================================================================
-c Loop over the pixels for ....
+c Loop over the pixels for preprocess
c=======================================================================
c#######################################################################
write(*,*) "first pixel loop"
diff --git a/couplage/MAR/call_caraib.f90 b/couplage/MAR/call_caraib.f90
index 039b11f..af48ff4 100644
--- a/couplage/MAR/call_caraib.f90
+++ b/couplage/MAR/call_caraib.f90
@@ -84,6 +84,10 @@
write(6,*) "Starting caraib"
call caraib
+
+ ! if first iter:
+ ! change yyyy to yyyy-1 for car outputs
+ ! change the 0 to 1 read data file
day_counter = day_counter + 1
first_iter = 0
--
GitLab