File: C:\NOAA\NEMS_11731\src\atmos\gfs\dyn\sig2press.f

1           subroutine sig2press(njeff,nsize_ar,pgr,prsl,dprs)
2      
3           use gfs_dyn_machine , only : kind_grid
4           use gfs_dyn_resol_def
5           use gfs_dyn_vert_def
6           use gfs_dyn_coordinate_def
7           implicit none
8      
9           integer njeff,nsize_ar
10           real(kind=kind_grid)  pgr(nsize_ar)
11           real(kind=kind_grid) prsl(nsize_ar,levs)
12           real(kind=kind_grid) dprs(nsize_ar,levs)
13           real(kind=kind_grid) pressfc
14     
15           integer i,k
16      
17           do k=1,levs
18             do i=1,njeff
19               pressfc    = exp(pgr(i))
20               prsl(i,k)  = sl(k)*pressfc
21               dprs(i,k)  = (si(k)-si(k+1))*pressfc
22             enddo
23           enddo
24      
25           return
26           end
27