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