Commit 92b73740 authored by hb's avatar hb
Browse files

num, nuh now initialised with _ZERO_

parent bfb26f7f
!$Id: m3d.F90,v 1.20 2004-07-28 14:58:18 hb Exp $ !$Id: m3d.F90,v 1.21 2004-07-29 19:48:44 hb Exp $
#include "cppdefs.h" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -53,7 +53,10 @@ ...@@ -53,7 +53,10 @@
! Original author(s): Karsten Bolding & Hans Burchard ! Original author(s): Karsten Bolding & Hans Burchard
! !
! $Log: m3d.F90,v $ ! $Log: m3d.F90,v $
! Revision 1.20 2004-07-28 14:58:18 hb ! Revision 1.21 2004-07-29 19:48:44 hb
! num, nuh now initialised with _ZERO_
!
! Revision 1.20 2004/07/28 14:58:18 hb
! Changing subroutine calling order via MUDFLAT ! Changing subroutine calling order via MUDFLAT
! !
! Revision 1.19 2004/06/15 08:25:57 kbk ! Revision 1.19 2004/06/15 08:25:57 kbk
...@@ -328,8 +331,8 @@ ...@@ -328,8 +331,8 @@
end select end select
dt = M*timestep dt = M*timestep
num=avmmol num=_ZERO_
nuh=avmmol nuh=_ZERO_
! Needed for interpolation of temperature and salinity ! Needed for interpolation of temperature and salinity
if (.not. hotstart) then if (.not. hotstart) then
......
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