Skip to content

Commit

Permalink
combine unpacking code into g2unpack.F90 (#595)
Browse files Browse the repository at this point in the history
* converted realloc.f to realloc.F90 and re-indented

* converting other files to F90

* converting other files to F90

* converting other files to F90

* converting other files to F90

* fixing cmake

* fixing cmake

* fixing cmake

* fixing cmake

* more F90 conversion

* more F90 conversion

* more F90 conversion

* combinging index code into one file

* combinging index code into one file

* more changes

* combined unpacking code into g2unpack.F90
  • Loading branch information
edwardhartnett authored Jan 31, 2024
1 parent f308044 commit 6ce16ec
Show file tree
Hide file tree
Showing 9 changed files with 716 additions and 753 deletions.
14 changes: 6 additions & 8 deletions src/CMakeLists.txt
Original file line number Diff line number Diff line change
Expand Up @@ -8,14 +8,12 @@ set(fortran_src addfield.F90 addgrid.F90 addlocal.F90 cmplxpack.F90
compack.F90 comunpack.F90 drstemplates.F90 g2_gbytesc.F90 g2grids.F90
gb_info.F90 getdim.F90 getfield.F90 getgb2.F90 getgb2l.F90 getgb2p.F90
getgb2r.F90 getgb2rp.F90 g2index.F90 getlocal.F90 getpoly.F90
gettemplates.F90 gf_free.F90 gf_getfld.F90 gf_unpack1.F90
gf_unpack2.F90 gf_unpack3.F90 gf_unpack4.F90 gf_unpack5.F90
gf_unpack6.F90 gf_unpack7.F90 gribcreate.F90 gribend.F90 gribinfo.F90
${CMAKE_CURRENT_BINARY_DIR}/gribmod.F90 gridtemplates.F90 intmath.F90
jpcpack.F90 jpcunpack.F90 misspack.F90 mkieee.F90 pack_gp.f
params_ecmwf.F90 params.F90 pdstemplates.F90 pngpack.F90 pngunpack.F90
putgb2.F90 rdieee.F90 realloc.F90 reduce.f simpack.F90 simunpack.F90
skgb.F90 specpack.F90 specunpack.F90)
gettemplates.F90 gf_free.F90 gf_getfld.F90 g2unpack.F90 gribcreate.F90
gribend.F90 gribinfo.F90 ${CMAKE_CURRENT_BINARY_DIR}/gribmod.F90
gridtemplates.F90 intmath.F90 jpcpack.F90 jpcunpack.F90 misspack.F90
mkieee.F90 pack_gp.f params_ecmwf.F90 params.F90 pdstemplates.F90
pngpack.F90 pngunpack.F90 putgb2.F90 rdieee.F90 realloc.F90 reduce.f
simpack.F90 simunpack.F90 skgb.F90 specpack.F90 specunpack.F90)

# This function calls NCEPLIBS-w3emc.
if (BUILD_WITH_W3EMC)
Expand Down
Loading

0 comments on commit 6ce16ec

Please sign in to comment.