Scheduled Downtime
On Friday 21 April 2023 @ 5pm MT, this website will be down for maintenance and expected to return online the morning of 24 April 2023 at the latest

Another bug in wrfda?

satjemkes

New member
Maybe it is linked to modern compilers, ubuntu 22.04 with standard gfortran

At line 3441 of file da_transfer_model.f
Fortran runtime error: Pointer argument 'xbx' is not associated

which reads

IF (SIZE(xbx%fft_factors_x) /=num_fft_factors) &
CALL da_setup_runconstants(grid, xbx)

which does not make sense as xbx%fft_factors_x is a pointer and if this is not associated / allocated then the size call will not make sense at all.

it can be found in the da_setup_firstguess.inc file near the bottom.

proposed solution (based on a guesstimate of the functionality)

IF ( ASSOCIATED(xbx%fft_factors_x) ) THEN
IF (SIZE(xbx%fft_factors_x) /=num_fft_factors) &
CALL da_setup_runconstants(grid, xbx)
ELSE
CALL da_setup_runconstants(grid, xbx)
END IF

the xbx%fft_factors_x is allocated in the da_setup_runconstants routine.

I hope this helps
 
Top