Commit 02e13c26 authored by Sabine's avatar Sabine
Browse files

removed write statements

parent 7ff942a7
......@@ -188,7 +188,7 @@ subroutine calculate_watercycle(partnumber,itime)
! e_minus_pi=e_minus_p1(memtime(1)) !test how the results change without interpolation - does not change a lot
! write(*,*) 'all: ',i,diff,e_minus_p(ix,jy) &
! write(*,*) 'all: ',i,diff,e_minus_pi &
! ,partnumber,val_q(i),qvi,itime,itra1(i),itage
if (itage.gt.0) then ! not the initialisation stage, it is assumed a value is already saved
......@@ -212,12 +212,12 @@ subroutine calculate_watercycle(partnumber,itime)
! we cannot be sure 3600 is the second timestep, could also be 1800!
if (((diff.ge.0).or.((e_minus_pi)/24.gt.-2.0)) .and. (itage.le.3600)) then
! write(*,*) 'terminated: ',i,diff,e_minus_p(ix,jy) &
! ,partnumber,val_q(i),qvi,itime,itra1(i),itage
if (((diff.ge.0).or.((e_minus_pi)/24.gt.-1.0)) .and. (itage.le.3600)) then
! write(*,*) 'terminated: ',i,diff,e_minus_pi &
! ,partnumber,val_q(i),qvi,itime,itra1(i),itage
itra1(i)=-999999999
else
! write(*,*) 'accounted: ',i,diff,e_minus_p(ix,jy) &
! write(*,*) 'accounted: ',i,diff,e_minus_pi &
! ,partnumber,val_q(i),qvi,itime,itra1(i),itage
call centerofmass(xl,yl,2,centerposx_real,centerposy_real)
centerposx=(centerposx_real-xlon0)/dx
......
Supports Markdown
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