Skip to content

Commit fc2d193

Browse files
committed
v12: Fix for r8 dynamics
1 parent fdb9524 commit fc2d193

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

DynCore_GridCompMod.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -7248,8 +7248,8 @@ subroutine ADD_INCS ( MAPL,STATE,IMPORT,DT,IS_WEIGHTED,RC )
72487248

72497249
real(kind=4), pointer :: tend(:,:,:)
72507250

7251-
real, pointer, dimension(:,:) :: LONS
7252-
real, pointer, dimension(:,:) :: LATS
7251+
real(kind=4), pointer, dimension(:,:) :: LONS
7252+
real(kind=4), pointer, dimension(:,:) :: LATS
72537253

72547254
type(DynTracers) :: qqq ! Specific Humidity
72557255
real(FVPRC), allocatable :: Q(:,:,:,:), CVM(:,:,:)

0 commit comments

Comments
 (0)