Commit ec566f4e authored by kbk's avatar kbk
Browse files

cleaned advection info

parent 4ce8d92c
!$Id: salinity.F90,v 1.14 2005-04-25 07:55:50 kbk Exp $
!$Id: salinity.F90,v 1.15 2005-04-29 12:59:44 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -41,7 +41,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: salinity.F90,v $
! Revision 1.14 2005-04-25 07:55:50 kbk
! Revision 1.15 2005-04-29 12:59:44 kbk
! cleaned advection info
!
! Revision 1.14 2005/04/25 07:55:50 kbk
! use more general frame for error handling - Umlauf
!
! Revision 1.13 2004/08/06 15:16:12 hb
......@@ -230,8 +233,8 @@ salt_field_no=1
salt_ver_adv=1
end if
end if
LEVEL3 "horizontal: ",trim(adv_schemes(salt_hor_adv))," of salinity"
LEVEL3 "vertical: ",trim(adv_schemes(salt_ver_adv))," of salinity"
LEVEL3 "horizontal: ",trim(adv_schemes(salt_hor_adv))
LEVEL3 "vertical: ",trim(adv_schemes(salt_ver_adv))
select case (salt_adv_split)
case (-1)
......
!$Id: temperature.F90,v 1.11 2005-04-25 07:55:50 kbk Exp $
!$Id: temperature.F90,v 1.12 2005-04-29 12:59:44 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -37,7 +37,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: temperature.F90,v $
! Revision 1.11 2005-04-25 07:55:50 kbk
! Revision 1.12 2005-04-29 12:59:44 kbk
! cleaned advection info
!
! Revision 1.11 2005/04/25 07:55:50 kbk
! use more general frame for error handling - Umlauf
!
! Revision 1.10 2004/01/06 15:04:00 kbk
......@@ -202,8 +205,8 @@ temp_field_no=1
temp_ver_adv=1
end if
end if
LEVEL3 "horizontal: ",trim(adv_schemes(temp_hor_adv))," of temperature"
LEVEL3 "vertical: ",trim(adv_schemes(temp_ver_adv))," of temperature"
LEVEL3 "horizontal: ",trim(adv_schemes(temp_hor_adv))
LEVEL3 "vertical: ",trim(adv_schemes(temp_ver_adv))
select case (temp_adv_split)
case (-1)
......
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