Commit 12fc6f25 authored by kb's avatar kb
Browse files

getm/initialise.F90

parent f723c1dc
!$Id: integration.F90,v 1.12 2009-02-18 13:38:15 hb Exp $
!$Id: integration.F90,v 1.13 2009-04-27 08:03:02 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -20,6 +20,9 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: integration.F90,v $
! Revision 1.13 2009-04-27 08:03:02 kb
! getm/initialise.F90
!
! Revision 1.12 2009-02-18 13:38:15 hb
! GETM runs without barotropic mode enabled, set -DNO_BAROTROPIC
!
......@@ -173,9 +176,11 @@
call do_input(n)
if(runtype .le. 2) then
call do_meteo(n)
#ifndef NO_3D
#ifndef NO_BAROCLINIC
else
call do_meteo(n,T(:,:,kmax))
#endif
#endif
end if
......
!$Id: create_restart_ncdf.F90,v 1.2 2007-10-19 07:52:36 kbk Exp $
!$Id: create_restart_ncdf.F90,v 1.3 2009-04-27 08:03:02 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -39,6 +39,9 @@
! Original author(s): Karsten Bolding
!
! $Log: create_restart_ncdf.F90,v $
! Revision 1.3 2009-04-27 08:03:02 kb
! getm/initialise.F90
!
! Revision 1.2 2007-10-19 07:52:36 kbk
! zub and zvb not in hotstart files anymore
!
......@@ -230,9 +233,9 @@
(/ xdim_id, ydim_id, zdim_id, biodim_id /), &
bio_id)
if (status .NE. NF90_NOERR) go to 10
#endif
#endif
end if
#endif
! globals
title="GETM NetCDF hotstart file"
......
!$Id: open_restart_ncdf.F90,v 1.2 2007-10-19 07:52:36 kbk Exp $
!$Id: open_restart_ncdf.F90,v 1.3 2009-04-27 08:03:02 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -28,6 +28,9 @@
! Original author(s): Karsten Bolding
!
! $Log: open_restart_ncdf.F90,v $
! Revision 1.3 2009-04-27 08:03:02 kb
! getm/initialise.F90
!
! Revision 1.2 2007-10-19 07:52:36 kbk
! zub and zvb not in hotstart files anymore
!
......@@ -165,9 +168,9 @@
#ifdef GETM_BIO
status = nf90_inq_varid(ncid, "bio", bio_id)
if (status .NE. NF90_NOERR) go to 10
#endif
#endif
end if
#endif
return
......
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