Commit cfbc2d1c authored by kbk's avatar kbk
Browse files

removed TABS

parent b0b484c1
!$Id: salinity.F90,v 1.8 2003-12-16 16:13:51 kbk Exp $
!$Id: salinity.F90,v 1.9 2003-12-16 17:10:05 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -39,7 +39,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: salinity.F90,v $
! Revision 1.8 2003-12-16 16:13:51 kbk
! Revision 1.9 2003-12-16 17:10:05 kbk
! removed TABS
!
! Revision 1.8 2003/12/16 16:13:51 kbk
! forced ????_strang to 0 - needs clarification
!
! Revision 1.7 2003/12/16 16:00:46 kbk
......@@ -381,9 +384,9 @@ STDERR 'salinity= ',iimin,iimax,i+ioff,iextr/2
! Auxilury terms, old and new time level,
do k=1,kmax-1
auxo(k)=2.*(1-cnpar)*dt*(nuh(i,j,k)+avmols)/ &
(hn(i,j,k+1)+hn(i,j,k))
(hn(i,j,k+1)+hn(i,j,k))
auxn(k)=2.* cnpar *dt*(nuh(i,j,k)+avmols)/ &
(hn(i,j,k+1)+hn(i,j,k))
(hn(i,j,k+1)+hn(i,j,k))
end do
! Matrix elements for surface layer
......
!$Id: temperature.F90,v 1.8 2003-12-16 16:13:51 kbk Exp $
!$Id: temperature.F90,v 1.9 2003-12-16 17:10:05 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -35,7 +35,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: temperature.F90,v $
! Revision 1.8 2003-12-16 16:13:51 kbk
! Revision 1.9 2003-12-16 17:10:05 kbk
! removed TABS
!
! Revision 1.8 2003/12/16 16:13:51 kbk
! forced ????_strang to 0 - needs clarification
!
! Revision 1.7 2003/12/16 16:00:46 kbk
......@@ -290,7 +293,7 @@ temp_field_no=1
swr_loc=swr(i,j)
shf_loc=shf(i,j)
if (T(i,j,kmax).le.-0.0575*S(i,j,kmax)) then ! use most primitive ice model ...
shf_loc=max(0.,shf_loc)
shf_loc=max(_ZERO_,shf_loc)
end if
rad(kmax)=(swr_loc+shf_loc)/(rho_0*cp)
zz = _ZERO_
......@@ -303,9 +306,9 @@ temp_field_no=1
! Auxilury terms, old and new time level,
do k=1,kmax-1
auxo(k)=2.*(1-cnpar)*dt*(nuh(i,j,k)+avmolt)/ &
(hn(i,j,k+1)+hn(i,j,k))
(hn(i,j,k+1)+hn(i,j,k))
auxn(k)=2.* cnpar *dt*(nuh(i,j,k)+avmolt)/ &
(hn(i,j,k+1)+hn(i,j,k))
(hn(i,j,k+1)+hn(i,j,k))
end do
! Matrix elements for surface layer
......
!$Id: get_river_data.F90,v 1.4 2003-12-16 12:33:38 kbk Exp $
!$Id: get_river_data.F90,v 1.5 2003-12-16 17:12:52 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -26,7 +26,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: get_river_data.F90,v $
! Revision 1.4 2003-12-16 12:33:38 kbk
! Revision 1.5 2003-12-16 17:12:52 kbk
! removed TABS
!
! Revision 1.4 2003/12/16 12:33:38 kbk
! some typos (manuel)
!
! Revision 1.3 2003/04/23 12:04:08 kbk
......@@ -55,7 +58,7 @@
case (ANALYTICAL)
case (ASCII)
STDERR 'should get ASCII river data'
stop 'ASCII river data input not coded!'
stop 'ASCII river data input not coded!'
case (NETCDF)
call get_river_data_ncdf(n)
case DEFAULT
......
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