Skip to content
Snippets Groups Projects
Commit c386031e authored by Gaelle DELAUTIER's avatar Gaelle DELAUTIER
Browse files

Gaelle 14/6/18 : add write JPHEXT in PGD

parent cc85f9ee
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/prep_ideal_case.f90
+ 1
− 0
View file @ c386031e
...@@ -1793,6 +1793,7 @@ IF (CSURF =='EXTE') THEN ...@@ -1793,6 +1793,7 @@ IF (CSURF =='EXTE') THEN
CSTORAGE_TYPE='PG' CSTORAGE_TYPE='PG'
! !
CALL IO_WRITE_HEADER(TINIFILEPGD) CALL IO_WRITE_HEADER(TINIFILEPGD)
CALL IO_WRITE_FIELD(TINIFILEPGD,'JPHEXT', JPHEXT)
CALL IO_WRITE_FIELD(TINIFILEPGD,'SURF','EXTE') CALL IO_WRITE_FIELD(TINIFILEPGD,'SURF','EXTE')
CALL IO_WRITE_FIELD(TINIFILEPGD,'L1D', L1D) CALL IO_WRITE_FIELD(TINIFILEPGD,'L1D', L1D)
CALL IO_WRITE_FIELD(TINIFILEPGD,'L2D', L2D) CALL IO_WRITE_FIELD(TINIFILEPGD,'L2D', L2D)
......
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

Documentation | Mentions légales | CGU | Accessibilité : non conforme