Skip to content
Snippets Groups Projects
Commit 96c23505 authored by Lucie Bakels's avatar Lucie Bakels
Browse files

Petra: name change verttransform_ecmwf_stereo to verttransform_ecmwf_polar

Former-commit-id: 3aadcea2
parent f0bba585
No related branches found
No related tags found
No related merge requests found
......@@ -142,7 +142,7 @@ subroutine verttransform_ecmwf(n,uuh,vvh,wwh,pvh)
! If north or south pole is in the domain, calculate wind velocities in polar
! stereographic coordinates
!*******************************************************************
call verttransform_ecmwf_stereo(n)
call verttransform_ecmwf_polar(n)
! Create cloud fields
!*********************
......@@ -673,7 +673,7 @@ subroutine verttransform_ecmwf_windfields(n,nxlim,nylim,uuh,vvh,wwh,pvh,rhoh,prs
end subroutine verttransform_ecmwf_windfields
subroutine verttransform_ecmwf_stereo(n)
subroutine verttransform_ecmwf_polar(n)
implicit none
integer, intent(in) :: n
......@@ -955,7 +955,7 @@ subroutine verttransform_ecmwf_stereo(n)
!$OMP END DO
!$OMP END PARALLEL
endif
end subroutine verttransform_ecmwf_stereo
end subroutine verttransform_ecmwf_polar
subroutine verttransform_ecmwf_cloud(lcw_tmp,lcwsum_tmp,nxlim,nylim,&
ctwc_tmp,clwc_tmp,ciwc_tmp,icloudbot_tmp,icloudtop_tmp,lsprec_tmp,convprec_tmp,rho_tmp, &
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment