diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90 index a8330810911dddcf15aa8e877304b7394e7bb532..ceba1cb51e9b7b9bd2da7f2b4eb4a6b87c4c096d 100644 --- a/src/MNH/write_lfifm1_for_diag.f90 +++ b/src/MNH/write_lfifm1_for_diag.f90 @@ -393,7 +393,7 @@ IF (.NOT.LCARTESIAN) THEN ! !* diagnostic of 1st mass point ! - CALL SM_LATLON( XLATORI, XLONORI, XHATM_BOUND(NEXTE_XMIN), XYHATM(NEXTE_XMIN), ZLATOR, ZLONOR ) + CALL SM_LATLON( XLATORI, XLONORI, XHATM_BOUND(NEXTE_XMIN), XHATM_BOUND(NEXTE_YMIN), ZLATOR, ZLONOR ) ! CALL IO_Field_write(TPFILE,'LONOR',ZLONOR) CALL IO_Field_write(TPFILE,'LATOR',ZLATOR) diff --git a/src/MNH/write_lfifmn_fordiachron.f90 b/src/MNH/write_lfifmn_fordiachron.f90 index 83b6d0a9b6b46fe23d4880593916822acbd11a18..a46115d97b8cc1dae8b453bcfb91fc43b38b880f 100644 --- a/src/MNH/write_lfifmn_fordiachron.f90 +++ b/src/MNH/write_lfifmn_fordiachron.f90 @@ -157,7 +157,7 @@ IF (.NOT.LCARTESIAN) THEN ! !* diagnostic of 1st mass point ! - CALL SM_LATLON( XLATORI, XLONORI, XHATM_BOUND(NEXTE_XMIN), XYHATM(NEXTE_XMIN), ZLATOR, ZLONOR ) + CALL SM_LATLON( XLATORI, XLONORI, XHATM_BOUND(NEXTE_XMIN), XHATM_BOUND(NEXTE_YMIN), ZLATOR, ZLONOR ) ! CALL IO_Field_write(TPFILE,'LONOR',ZLONOR) CALL IO_Field_write(TPFILE,'LATOR',ZLATOR) diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90 index 8818506c3ca31342dc9deca93164fa27166c14bb..1b48d9b9b62ad3328ad42bcbf7b8a70e3a6e6c81 100644 --- a/src/MNH/write_lfin.f90 +++ b/src/MNH/write_lfin.f90 @@ -360,7 +360,7 @@ IF (.NOT.LCARTESIAN) THEN ! !* diagnostic of 1st mass point ! - CALL SM_LATLON( XLATORI, XLONORI, XHATM_BOUND(NEXTE_XMIN), XYHATM(NEXTE_XMIN), ZLATOR, ZLONOR ) + CALL SM_LATLON( XLATORI, XLONORI, XHATM_BOUND(NEXTE_XMIN), XHATM_BOUND(NEXTE_YMIN), ZLATOR, ZLONOR ) ! CALL IO_Field_write(TPFILE,'LONOR',ZLONOR) CALL IO_Field_write(TPFILE,'LATOR',ZLATOR)