Another bug in wrfda?

satjemkes

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
 
Back
Top