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