Commit 2bfa85dd authored by kbk's avatar kbk
Browse files

conv --> convc

parent 998d390b
!$Id: meteo.F90,v 1.12 2005-04-19 15:56:58 kbk Exp $
!$Id: meteo.F90,v 1.13 2005-04-25 09:25:33 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -46,7 +46,7 @@
use time, only: yearday,secondsofday,timestep
use halo_zones, only : H_TAG,update_2d_halo,wait_halo
use domain, only: imin,imax,jmin,jmax,lonc,latc,az
use domain, only: iimin,iimax,jjmin,jjmax,conv
use domain, only: iimin,iimax,jjmin,jjmax,convc
IMPLICIT NONE
!
private
......@@ -78,7 +78,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: meteo.F90,v $
! Revision 1.12 2005-04-19 15:56:58 kbk
! Revision 1.13 2005-04-25 09:25:33 kbk
! conv --> convc
!
! Revision 1.12 2005/04/19 15:56:58 kbk
! added latitude dependent cloud correction factor for long wave rad. - Stips
!
! Revision 1.11 2005/01/13 09:49:37 kbk
......@@ -410,9 +413,9 @@
! Rotation of wind stress due to grid convergence
do j=jjmin,jjmax
do i=iimin,iimax
if (conv(i,j) .ne. _ZERO_ .and. az(i,j) .gt. 0) then
sinconv=sin(-conv(i,j)*deg2rad)
cosconv=cos(-conv(i,j)*deg2rad)
if (convc(i,j) .ne. _ZERO_ .and. az(i,j) .gt. 0) then
sinconv=sin(-convc(i,j)*deg2rad)
cosconv=cos(-convc(i,j)*deg2rad)
uu=tausx(i,j)
vv=tausy(i,j)
tausx(i,j)= uu*cosconv+vv*sinconv
......
!$Id: ncdf_meteo.F90,v 1.17 2005-04-25 07:55:50 kbk Exp $
!$Id: ncdf_meteo.F90,v 1.18 2005-04-25 09:25:33 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -13,7 +13,7 @@
! !USES:
use time, only: string_to_julsecs,time_diff,add_secs,in_interval
use time, only: jul0,secs0,julianday,secondsofday,timestep,simtime
use domain, only: imin,imax,jmin,jmax,az,lonc,latc,conv
use domain, only: imin,imax,jmin,jmax,az,lonc,latc,convc
use grid_interpol, only: init_grid_interpol,do_grid_interpol
use grid_interpol, only: to_rotated_lat_lon
use meteo, only: meteo_file,on_grid,calc_met,method,hum_method
......@@ -80,7 +80,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: ncdf_meteo.F90,v $
! Revision 1.17 2005-04-25 07:55:50 kbk
! Revision 1.18 2005-04-25 09:25:33 kbk
! conv --> convc
!
! Revision 1.17 2005/04/25 07:55:50 kbk
! use more general frame for error handling - Umlauf
!
! Revision 1.16 2005/03/31 10:14:20 kbk
......@@ -772,7 +775,7 @@
do i=imin,imax
!KBK angle=-convc(i,j)*deg2rad
!KBK angle=beta(i,j)
angle=beta(i,j)-conv(i,j)*deg2rad
angle=beta(i,j)-convc(i,j)*deg2rad
if(angle .ne. _ZERO_) then
sinconv=sin(angle)
cosconv=cos(angle)
......
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