diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90 index f20b46cef68688081882b4007053e7e5b29e7446..154aeff86b5d39af92cb0c8703289f08b8b188ac 100644 --- a/src/MNH/write_lfin.f90 +++ b/src/MNH/write_lfin.f90 @@ -229,7 +229,7 @@ USE MODD_GRID_n USE MODD_HURR_CONF, ONLY: LFILTERING,CFILTERING,NDIAG_FILT USE MODD_HURR_FIELD_n USE MODD_IBM_LSF, ONLY: LIBM_LSF -USE MODD_IBM_PARAM_n, ONLY: LIBM, XIBM_LS +USE MODD_IBM_PARAM_n, ONLY: LIBM, XIBM_LS, XIBM_XMUT USE MODD_IO, ONLY: TFILEDATA USE MODD_LATZ_EDFLX USE MODD_LIMA_PRECIP_SCAVENGING_n @@ -498,6 +498,19 @@ IF (LIBM .OR. LIBM_LSF) THEN ! CALL IO_Field_write(TPFILE,TZFIELD,XIBM_LS(:,:,:,1)) ! + TZFIELD = TFIELDMETADATA( & + CMNHNAME = 'XMUT', & + CLONGNAME = 'XMUT', & + CSTDNAME = '', & + CUNITS = 'm2 s-1', & + CDIR = 'XY', & + NGRID = 1, & + NTYPE = TYPEREAL, & + NDIMS = 3, & + LTIMEDEP = .TRUE. ) + ! + CALL IO_Field_write(TPFILE,TZFIELD,XIBM_XMUT) + ! ENDIF ! IF (LRECYCL) THEN