Commit 920d2de6 authored by kbk's avatar kbk
Browse files

cosmetics

parent 362cabf1
!$Id: m3d.F90,v 1.33 2006-12-15 09:57:50 kbk Exp $
!$Id: m3d.F90,v 1.34 2006-12-15 10:25:42 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -216,7 +216,9 @@
LEVEL2 'vel_check=',vel_check
if (vel_check .ne. 0) then
LEVEL3 'doing sanity checks on velocities every ',vel_check,' timesteps'
LEVEL3 'doing sanity checks on velocities'
LEVEL3 'min_vel=',min_vel
LEVEL3 'max_vel=',max_vel
if (vel_check .gt. 0) then
LEVEL3 'out-of-bound values result in termination of program'
end if
......
!$Id: salinity.F90,v 1.23 2006-12-15 09:57:50 kbk Exp $
!$Id: salinity.F90,v 1.24 2006-12-15 10:25:42 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -307,6 +307,8 @@ salt_field_no=1
LEVEL3 'salt_check=',salt_check
if (salt_check .ne. 0) then
LEVEL4 'doing sanity check on salinity'
LEVEL4 'min_salt=',min_salt
LEVEL4 'max_salt=',max_salt
if (salt_check .gt. 0) then
LEVEL4 'out-of-bound values result in termination of program'
end if
......
!$Id: temperature.F90,v 1.19 2006-12-15 09:57:50 kbk Exp $
!$Id: temperature.F90,v 1.20 2006-12-15 10:25:42 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -199,6 +199,8 @@ temp_field_no=1
LEVEL3 'temp_check=',temp_check
if (temp_check .ne. 0) then
LEVEL4 'doing sanity check on temperature'
LEVEL4 'min_temp=',min_temp
LEVEL4 'max_temp=',max_temp
if (temp_check .gt. 0) then
LEVEL4 'out-of-bound values result in termination of program'
end if
......
!$Id: uu_momentum_3d.F90,v 1.12 2006-12-15 09:57:50 kbk Exp $
!$Id: uu_momentum_3d.F90,v 1.13 2006-12-15 10:25:42 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -230,7 +230,7 @@ end do
"out-of-bound values encountered")
end if
if (vel_check .lt. 0) then
LEVEL1 'do_salinity(): ',status, &
LEVEL1 'uu_momentum_3d(): ',status, &
' out-of-bound values encountered'
end if
end if
......
!$Id: vv_momentum_3d.F90,v 1.15 2006-12-15 09:57:50 kbk Exp $
!$Id: vv_momentum_3d.F90,v 1.16 2006-12-15 10:25:42 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -247,7 +247,7 @@
"out-of-bound values encountered")
end if
if (vel_check .lt. 0) then
LEVEL1 'do_salinity(): ',status, &
LEVEL1 'vv_momentum_3d(): ',status, &
' out-of-bound values encountered'
end if
end if
......
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