Commit a3898245 authored by ph290's avatar ph290
Browse files

removing leftover code that skipped lines outseide depth raneg in a hard-wired...

removing leftover code that skipped lines outseide depth raneg in a hard-wired way. Now done before we get to the fortran code
parent 56ba5894
......@@ -1327,22 +1327,6 @@ Subroutine grazing() ! Get phytoplankton grazing parameters
u_cubed=0.0; n_cubed=0
N=newN; depth=newdepth; dz=newdz
! map output
if(imode.eq.1) then
! avoid shallow and deep ocean
if(depth.lt.5.0.or.depth.gt.150.0) then
iday = 0
strat_jul = -999.99
timeloop_init: do itime=0,ndays
write(6,fmt="(i4,2f9.3,4f8.2)")iday,lon,lat,depth,strat_jul,strat_jul,strat_jul
iday=iday+1
END do timeloop_init
go to 999
!the go to 999 jumps to 999 continue, so skip the main routine for these water depth, just writing out missing data
endif
endif
!
! Allocate graphics and turbulence arrays
!
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment