Skip to content
Snippets Groups Projects
Commit 146a104c authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann 🌱
Browse files

update srcinfo.h path

parent 5166e452
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/basic_mod.F90
+ 1
− 1
View file @ 146a104c
...@@ -507,7 +507,7 @@ CONTAINS ...@@ -507,7 +507,7 @@ CONTAINS
SUBROUTINE show_title SUBROUTINE show_title
USE parallel, ONLY: my_id USE parallel, ONLY: my_id
IMPLICIT NONE IMPLICIT NONE
INCLUDE 'srcinfo.h' ! for the code version INCLUDE 'srcinfo/srcinfo.h' ! for the code version
IF(my_id .EQ. 0) THEN IF(my_id .EQ. 0) THEN
write(*,*) "==============================================" write(*,*) "=============================================="
write(*,*) " ______ " write(*,*) " ______ "
......
src/diagnostics_mod.F90
+ 1
− 1
View file @ 146a104c
...@@ -80,7 +80,7 @@ CONTAINS ...@@ -80,7 +80,7 @@ CONTAINS
CHARACTER(len=256), INTENT(OUT) :: file CHARACTER(len=256), INTENT(OUT) :: file
INTEGER, INTENT(OUT) :: fid INTEGER, INTENT(OUT) :: fid
CHARACTER(len=256) :: str CHARACTER(len=256) :: str
INCLUDE 'srcinfo.h' INCLUDE 'srcinfo/srcinfo.h'
! Writing output filename ! Writing output filename
WRITE(file,'(a,a1,i2.2,a3)') TRIM(file0) ,'_',jobnum,'.h5' WRITE(file,'(a,a1,i2.2,a3)') TRIM(file0) ,'_',jobnum,'.h5'
! 1.1 Initial run ! 1.1 Initial run
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment