search

NOAA-PSL / stochastic_physics

Contains the stochastic physics pattern generator for the Unified Forecast System
Other
6 stars 41 forks source link

Warnings about legacy extensions when compiling with GNU #33

Closed climbfuji closed 3 years ago

climbfuji commented 3 years ago

Compiling the current master of stochastic_physics with GNU (and any other version ever since it got added to the UFS), I get the following warnings. This should be cleaned up at some point.

/Users/dom.heinzeller/scratch/ufs-weather-model/ufs-weather-model-remove-ipd-step3-and-5/gnu/stochastic_physics/get_stochy_pattern.F90:324:110:

  324 |        upattern_3d(blk,:,k) = skeb_vwts(k,1)*skebu_save(blk,:,skeb_vpts(k,1))+skeb_vwts(k,2)*skebu_save(blk,:,skeb_vpts(k,2))
      |                                                                                                              1
Warning: Legacy Extension: REAL array index at (1)
/Users/dom.heinzeller/scratch/ufs-weather-model/ufs-weather-model-remove-ipd-step3-and-5/gnu/stochastic_physics/get_stochy_pattern.F90:324:62:

  324 |        upattern_3d(blk,:,k) = skeb_vwts(k,1)*skebu_save(blk,:,skeb_vpts(k,1))+skeb_vwts(k,2)*skebu_save(blk,:,skeb_vpts(k,2))
      |                                                              1
Warning: Legacy Extension: REAL array index at (1)
/Users/dom.heinzeller/scratch/ufs-weather-model/ufs-weather-model-remove-ipd-step3-and-5/gnu/stochastic_physics/get_stochy_pattern.F90:325:110:

  325 |        vpattern_3d(blk,:,k) = skeb_vwts(k,1)*skebv_save(blk,:,skeb_vpts(k,1))+skeb_vwts(k,2)*skebv_save(blk,:,skeb_vpts(k,2))
      |                                                                                                              1
Warning: Legacy Extension: REAL array index at (1)
/Users/dom.heinzeller/scratch/ufs-weather-model/ufs-weather-model-remove-ipd-step3-and-5/gnu/stochastic_physics/get_stochy_pattern.F90:325:62:

  325 |        vpattern_3d(blk,:,k) = skeb_vwts(k,1)*skebv_save(blk,:,skeb_vpts(k,1))+skeb_vwts(k,2)*skebv_save(blk,:,skeb_vpts(k,2))
pjpegion commented 3 years ago

I will take a look, seems simple. I think I just need to change the type of skeb_vpts to integer.