diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90 index 81e8c12aa1e3a50398c1de9bb6fcaa55c46d011c..c72951f5be3692fd9674ad5fd36a953322b1dc8b 100644 --- a/src/MNH/prep_ideal_case.f90 +++ b/src/MNH/prep_ideal_case.f90 @@ -1793,6 +1793,7 @@ IF (CSURF =='EXTE') THEN CSTORAGE_TYPE='PG' ! CALL IO_WRITE_HEADER(TINIFILEPGD) + CALL IO_WRITE_FIELD(TINIFILEPGD,'JPHEXT', JPHEXT) CALL IO_WRITE_FIELD(TINIFILEPGD,'SURF','EXTE') CALL IO_WRITE_FIELD(TINIFILEPGD,'L1D', L1D) CALL IO_WRITE_FIELD(TINIFILEPGD,'L2D', L2D)