Commit 18ac0921 authored by kbk's avatar kbk
Browse files

need maxdepth in parameter list to coordinates()

parent 4df45b83
!$Id: initialise.F90,v 1.5 2003-09-03 05:49:31 kbk Exp $ !$Id: initialise.F90,v 1.6 2004-01-13 07:49:06 kbk Exp $
#include "cppdefs.h" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -22,7 +22,10 @@ ...@@ -22,7 +22,10 @@
! Original author(s): Karsten Bolding & Hans Burchard ! Original author(s): Karsten Bolding & Hans Burchard
! !
! $Log: initialise.F90,v $ ! $Log: initialise.F90,v $
! Revision 1.5 2003-09-03 05:49:31 kbk ! Revision 1.6 2004-01-13 07:49:06 kbk
! need maxdepth in parameter list to coordinates()
!
! Revision 1.5 2003/09/03 05:49:31 kbk
! hotstart files now read from - out_dir ! hotstart files now read from - out_dir
! !
! Revision 1.4 2003/08/15 12:50:12 kbk ! Revision 1.4 2003/08/15 12:50:12 kbk
...@@ -89,7 +92,7 @@ ...@@ -89,7 +92,7 @@
use domain, only: init_domain use domain, only: init_domain
use domain, only: iextr,jextr,imin,imax,jmin,jmax use domain, only: iextr,jextr,imin,imax,jmin,jmax
use domain, only: iimin,iimax,jjmin,jjmax,kmax use domain, only: iimin,iimax,jjmin,jjmax,kmax
use domain, only: vert_cord use domain, only: vert_cord,maxdepth
use time, only: init_time,update_time,write_time_string use time, only: init_time,update_time,write_time_string
use time, only: start,timestr,timestep use time, only: start,timestr,timestep
use m2d, only: init_2d,z,zu,zv use m2d, only: init_2d,z,zu,zv
...@@ -262,7 +265,7 @@ ...@@ -262,7 +265,7 @@
#ifndef NO_3D #ifndef NO_3D
if (runtype .gt. 1) then if (runtype .gt. 1) then
call start_macro() call start_macro()
call coordinates(vert_cord,cord_relax) call coordinates(vert_cord,cord_relax,maxdepth)
end if end if
#endif #endif
call depth_update call depth_update
......
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