A bug in the get_grid.F

Bug reports, work arounds and fixes

Moderators: arango, robertson

Post Reply
Message
Author
panfeng291
Posts: 9
Joined: Sun Nov 10, 2013 5:59 pm
Location: NMEFC

A bug in the get_grid.F

#1 Unread post by panfeng291 »

When I Use the UV_DRAG_GRID and PIO_LIB, I got this error.
In get_grid.F have defined the pioVar_dragL, pioVar_dragQ
# if defined UV_DRAG_GRID && !defined ANA_DRAG
TYPE (My_VarDesc) :: pioVar_dragL, pioVar_dragQ, pioVar_ZoBL
# endif

but in line 4856 and line 4919 the var name become pioVar_rdrag and pioVar_rdrag2.
IF (KIND(GRID(ng)%rdrag).eq.8) THEN
pioVar_rdrag%dkind=PIO_double
ioDesc => ioDesc_dp_r2dvar(ng)
ELSE
pioVar_rdrag%dkind=PIO_real
ioDesc => ioDesc_sp_r2dvar(ng)
END IF
! Read in spacially varying quadratic drag coefficients.
!
IF (KIND(GRID(ng)%rdrag2).eq.8) THEN
pioVar_rdrag2%dkind=PIO_double
ioDesc => ioDesc_dp_r2dvar(ng)
ELSE
pioVar_rdrag2%dkind=PIO_real
ioDesc => ioDesc_sp_r2dvar(ng)
END IF
!
Attachments
error.png

Post Reply