diff --git a/examples/cdi_write_f2003.f90 b/examples/cdi_write_f2003.f90 index f636f8466c1cfb06a95a69e365eb6c6802ef0bef..e1765e6305656d073e6c442cd6783348938b7e9d 100644 --- a/examples/cdi_write_f2003.f90 +++ b/examples/cdi_write_f2003.f90 @@ -1,7 +1,6 @@ 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