Skip to content
Snippets Groups Projects
Commit 98525345 authored by Dethinne Thomas's avatar Dethinne Thomas
Browse files

f fortran 70

parent c7a65385
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
couplage/CARAIB/ver01_Iv_couplage/mod_open_file.f
+ 1
− 1
View file @ 98525345
......@@ -65,7 +65,7 @@ c// END
& ydat,filexto,filextlu,filexti,dndata
read(dndata,*)idayct
else
read(9995,'(a30,a16,1x,a16,1x,a120)')ydat,filexto,filextlu,filexti
read(9995,'(a30,a16,1x,a16,1x,a120)')ydat,filexto,filextlu,filexti
endif
n1000 = 1 + iyrrGE / 1000
......
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