Ignore:
Timestamp:
Jan 23, 2025, 5:33:08 PM (13 hours ago)
Author:
fhourdin
Message:

Modif lecture u10m spla

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5463 r5504  
    2525  integer :: start(4),count_(4)
    2626  integer :: i, j, ig
     27  integer :: lunout
     28
     29  lunout=6
    2730
    2831
    … …  
    5760  !
    5861  rcode = nf90_get_var(ncidu1, varidu1, u10m_nc_glo, start, count_)
    59   if ( rcode /= 0 ) then ; call abort_physic('LMDZ','lecture u10m dans read_vent',1) ; endif
     62  ! if ( rcode /= 0 ) then ; call abort_physic('LMDZ','lecture u10m dans read_vent',1) ; endif
     63  if ( rcode /= 0 ) then ; write(lunout,*) 'WARNING : pas de temps manquant dans la lecture u10m dans read_vent' ; endif
    6064  rcode = nf90_get_var(ncidv1, varidv1, v10m_nc_glo, start, count_)
    61   if ( rcode /= 0 ) then ; call abort_physic('LMDZ','lecture v10m dans read_vent',1) ; endif
     65  ! if ( rcode /= 0 ) then ; call abort_physic('LMDZ','lecture v10m dans read_vent',1) ; endif
     66  if ( rcode /= 0 ) then ; write(lunout,*) 'WARNING : pas de temps manquant dans la lecture v10m dans read_vent' ; endif
    6267
    6368
Note: See TracChangeset for help on using the changeset viewer.