Skip to content
Snippets Groups Projects
Commit ced9d29a authored by Dethinne Thomas's avatar Dethinne Thomas
Browse files

Found the solution for the spin up i think

parent f6befc39
No related branches found
No related tags found
No related merge requests found
...@@ -301,7 +301,7 @@ c======================================================================= ...@@ -301,7 +301,7 @@ c=======================================================================
endif !(num_ncdf) endif !(num_ncdf)
c======================================================================= c=======================================================================
c i dont know c Read or generate temperature ?
c======================================================================= c=======================================================================
...@@ -324,7 +324,7 @@ c======================================================================= ...@@ -324,7 +324,7 @@ c=======================================================================
endif !(incdf_tem) endif !(incdf_tem)
c======================================================================= c=======================================================================
c i dont know c Read or generate temperature max ?
c======================================================================= c=======================================================================
if (incdf_dta.eq.1) then if (incdf_dta.eq.1) then
...@@ -347,7 +347,7 @@ c======================================================================= ...@@ -347,7 +347,7 @@ c=======================================================================
endif !(incdf_dta) endif !(incdf_dta)
c======================================================================= c=======================================================================
c i dont know c Read or generate temperature min ?
c======================================================================= c=======================================================================
...@@ -370,7 +370,7 @@ c======================================================================= ...@@ -370,7 +370,7 @@ c=======================================================================
endif !(idtem) endif !(idtem)
c======================================================================= c=======================================================================
c i dont know c Read or generate precip ?
c======================================================================= c=======================================================================
...@@ -394,7 +394,7 @@ c======================================================================= ...@@ -394,7 +394,7 @@ c=======================================================================
endif endif
c======================================================================= c=======================================================================
c i dont know c Read or generate sunshine hour ?
c======================================================================= c=======================================================================
if (incdf_shi.eq.1) then if (incdf_shi.eq.1) then
...@@ -415,7 +415,7 @@ c======================================================================= ...@@ -415,7 +415,7 @@ c=======================================================================
endif endif
c======================================================================= c=======================================================================
c i dont know c Read or generate Relative humidity ?
c======================================================================= c=======================================================================
if (incdf_rhu.eq.1) then if (incdf_rhu.eq.1) then
...@@ -435,7 +435,7 @@ c======================================================================= ...@@ -435,7 +435,7 @@ c=======================================================================
endif endif
c======================================================================= c=======================================================================
c i dont know c Read or generate windspeed ?
c======================================================================= c=======================================================================
if (incdf_win.eq.1) then if (incdf_win.eq.1) then
...@@ -460,7 +460,7 @@ c======================================================================= ...@@ -460,7 +460,7 @@ c=======================================================================
c####################################################################### c#######################################################################
c======================================================================= c=======================================================================
c Loop over the pixels for .... c Loop over the pixels for preprocess
c======================================================================= c=======================================================================
c####################################################################### c#######################################################################
write(*,*) "first pixel loop" write(*,*) "first pixel loop"
......
...@@ -84,6 +84,10 @@ ...@@ -84,6 +84,10 @@
write(6,*) "Starting caraib" write(6,*) "Starting caraib"
call 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 day_counter = day_counter + 1
first_iter = 0 first_iter = 0
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment