Skip to content

Commit

Permalink
Pass real literals instead of integers to conform to the type of dumm…
Browse files Browse the repository at this point in the history
…y arguments (#48)
  • Loading branch information
milancurcic authored Jun 13, 2024
1 parent 2179931 commit b690f22
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions cms-master/src/loop.f90
Original file line number Diff line number Diff line change
Expand Up @@ -245,8 +245,8 @@ SUBROUTINE loop(my_id, npes)
r,n,newi,newj,newk)
ELSE
CALL rungakutta(ngrid,particle(r)%nlon(n),particle(r)%nlat(n), &
particle(r)%ndepth(n), startsec,-1, &
-1,1,un,vn,wn,tn,sn,rn,flag,landFlag, &
particle(r)%ndepth(n), startsec,-1., &
-1.,1,un,vn,wn,tn,sn,rn,flag,landFlag, &
r,n,newi,newj,newk) !-1 are flags for dens and diam meaning that neither buoyany nor diffpart are being used
ENDIF
! 3) if startposition is on land, output -2 to outputfile, but only if fill_value ne 0
Expand Down

0 comments on commit b690f22

Please sign in to comment.