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 58212c08f18f655aab91fd782968ec3ed951bfff..8d51044effb8da28967887c6935381e91cfde2a1 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 039b11fb4c821813bcafc10e0788e5777312526e..af48ff419a977cd2d745fedca31cf3c29099abe2 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