Skip to content
Snippets Groups Projects
Commit 508ec7d2 authored by Sergey Kosukhin's avatar Sergey Kosukhin
Browse files

Use C_INT64_T from ISO_C_BINDING (to avoid using a Fortran 2008 feature) for...

Use C_INT64_T from ISO_C_BINDING (to avoid using a Fortran 2008 feature) for casting INT to INT64 in cdi_write_f2003.f90.
parent 97d9294d
No related branches found
No related tags found
No related merge requests found
PROGRAM CDIWRITEF2003
USE iso_c_binding
USE iso_fortran_env, ONLY : int64
USE mo_cdi
IMPLICIT NONE
......@@ -73,7 +72,7 @@
! Loop over the number of time steps
DO tsID = 0, nts-1
! Set the verification date to 1985-01-01 + tsID
CALL taxisDefVdate(taxisID, 19850101_int64+tsID)
CALL taxisDefVdate(taxisID, 19850101_c_int64_t+tsID)
! Set the verification time to 12:00:00
CALL taxisDefVtime(taxisID, 120000)
! Define the time step
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment