Commit 7ba711f2 authored by lars's avatar lars
Browse files

added switch for bottom stress output

parent 26e366ef
!$Id: output.F90,v 1.26 2009-01-05 09:57:06 kb Exp $
!$Id: output.F90,v 1.27 2009-04-22 10:07:19 lars Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -47,6 +47,7 @@
logical :: save_num=.true.
logical :: save_nuh=.true.
logical :: save_ss_nn=.false.
logical :: save_taub=.false.
integer :: first_2d=1
integer :: step_2d=1
integer :: first_3d=1
......@@ -58,6 +59,9 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: output.F90,v $
! Revision 1.27 2009-04-22 10:07:19 lars
! added switch for bottom stress output
!
! Revision 1.26 2009-01-05 09:57:06 kb
! option for storing SS and NN
!
......@@ -197,7 +201,8 @@
in_dir,out_dir, &
save_2d,save_3d,save_masks,save_vel,destag, &
save_strho,save_s,save_t,save_rho,save_rad, &
save_turb,save_tke,save_eps,save_num,save_nuh,save_ss_nn, &
save_turb,save_tke,save_eps,save_num,save_nuh, &
save_ss_nn,save_taub, &
first_2d,step_2d,first_3d,step_3d,hotout,meanout, &
save_meteo
! logical :: nesting=.true.
......
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