Changeset 5720 for LMDZ6/trunk/libf

Timestamp:

Jun 25, 2025, 4:58:49 PM (5 weeks ago)

Author:

yann meurdesoif

Message:

bug fix : for unstruct grid, activate read of sih_limit field only if flag_seaice is set.
Works for regular grid but not for unstruct grid (limit.nc is read by XIOS).

YM

File:

• LMDZ6/trunk/libf/phylmd/limit_read_mod.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/limit_read_mod.f90

@@ -341 +341 @@
              IF (is_omp_master) CALL xios_recv_field("sst_limin",sst_mpi)
              !GG
-             IF (is_omp_master) CALL xios_recv_field("sih_limin",sih_mpi)
+             IF (iflag_seaice == 1) THEN
+               IF (is_omp_master) CALL xios_recv_field("sih_limin",sih_mpi)
+             ENDIF
              !GG
          ENDIF