Changeset 5504 for LMDZ6/trunk

Timestamp:

Jan 23, 2025, 5:33:08 PM (9 hours ago)

Author:

fhourdin

Message:

Modif lecture u10m spla

File:

• LMDZ6/trunk/libf/phylmd/Dust/read_vent.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/read_vent.f90

@@ -25 +25 @@
   integer :: start(4),count_(4)
   integer :: i, j, ig
+  integer :: lunout
+
+  lunout=6
 
 
@@ -57 +60 @@
   !
   rcode = nf90_get_var(ncidu1, varidu1, u10m_nc_glo, start, count_)
-  if ( rcode /= 0 ) then ; call abort_physic('LMDZ','lecture u10m dans read_vent',1) ; endif
+  ! if ( rcode /= 0 ) then ; call abort_physic('LMDZ','lecture u10m dans read_vent',1) ; endif
+  if ( rcode /= 0 ) then ; write(lunout,*) 'WARNING : pas de temps manquant dans la lecture u10m dans read_vent' ; endif
   rcode = nf90_get_var(ncidv1, varidv1, v10m_nc_glo, start, count_)
-  if ( rcode /= 0 ) then ; call abort_physic('LMDZ','lecture v10m dans read_vent',1) ; endif
+  ! if ( rcode /= 0 ) then ; call abort_physic('LMDZ','lecture v10m dans read_vent',1) ; endif
+  if ( rcode /= 0 ) then ; write(lunout,*) 'WARNING : pas de temps manquant dans la lecture v10m dans read_vent' ; endif