Ignore:
Timestamp:
05/18/20 14:08:19 (4 years ago)
Author:
dubos
Message:

devel : towards conformity to F2008 standard

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/time/hevi_scheme.f90

    r951 r1026  
    3737    ! Euler scheme disguised as ARK for development purposes 
    3838    REAL(rstd) :: dt 
    39     CALL set_coefs_rk(dt, (/ zero, (/1.,0.,0./), (/0.,0.,0./), (/0./0.,0./0.,0./) /) ) 
     39    CALL set_coefs_rk(dt, (/ zero, (/1.,0.,0./), (/0.,0.,0./), (/0.,0.,0./) /) ) 
    4040  END SUBROUTINE set_coefs_ark11 
    4141     
Note: See TracChangeset for help on using the changeset viewer.