Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

fix doxygen for sorc/emcsfc_ice_blend.fd (#342) #355

Closed
wants to merge 7 commits into from
Closed

fix doxygen for sorc/emcsfc_ice_blend.fd (#342) #355

Changes from 1 commit
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
64f95ca
fix doxygen for sorc/emcsfc_ice_blend.fd (#342)
lgannoaa Feb 24, 2021
dcda127
Doxygen update
lgannoaa Feb 24, 2021
4874031
Update doxygen
lgannoaa Feb 25, 2021
ba8a933
Update to doxygen
lgannoaa Feb 25, 2021
b2a1196
break the declaration of each var onto it's own line
lgannoaa Feb 25, 2021
eca11c3
doxygen update
lgannoaa Feb 25, 2021
82e14af
Merge branch 'develop' into feature/doxygen_ice_blend
edwardhartnett Feb 25, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
23 changes: 10 additions & 13 deletions sorc/emcsfc_ice_blend.fd/emcsfc_ice_blend.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -87,15 +87,6 @@
!!
!! In the SH, the blended value is simply the 5-minute ice concentration
!! at 'water' points. 'Coast' and 'land' points are bitmapped out.
!! @param j search position of a file
!! @param lugi set to 0 - no grib index file
!! @param jdisc set to 2 - search for discipline
!! @param jpdtn search for product definition template number
!! @param jgdtn search for grid definition template number; 0 - lat/lon grid
!! @param jids array of values in identification section, set to wildcard
!! @param jgdt array of values in grid definition template 3.m
!! @param jpdt array of values in product definition template 4.n
!! @param unpack switch for unpack data
!!
program emcsfc_ice_blend

Expand All @@ -110,15 +101,21 @@ program emcsfc_ice_blend
integer, parameter :: imax=4320 !< Constant value on i dim.
integer, parameter :: jmax=2160 !< Constant value on j dim.
edwardhartnett marked this conversation as resolved.
Show resolved Hide resolved

integer :: i,j, istat, iunit
integer :: i,j, istat, iunit !< j search position of a file
integer :: ii, iii, jj, jjj, count
integer :: lugi
integer :: jdisc, jgdtn, jpdtn, k
integer :: lugi !< set to 0 - no grib index file
integer :: jdisc, jgdtn, jpdtn, k
edwardhartnett marked this conversation as resolved.
Show resolved Hide resolved
!< jdisc set to 2 - search for discipline
!< jpdtn search for product definition template number
!< jgdtn search for grid definition template number; 0 - lat/lon grid
integer :: jids(200), jgdt(200), jpdt(200)
!< jids array of values in identification section, set to wildcard
!< jgdt array of values in grid definition template 3.m
!< jpdt array of values in product definition template 4.n
integer, allocatable :: mask_5min(:,:), mask_ims(:,:)

logical*1, allocatable :: lbms_ims(:,:)
logical :: unpack
logical :: unpack !< unpack switch for unpack data

real, allocatable :: dummy(:,:)
real, allocatable :: ice_ims(:,:), ice_5min(:,:), ice_blend(:,:)
Expand Down