Ignore:
Timestamp:
Oct 1, 2022, 2:48:32 PM (2 years ago)
Author:
fhourdin
Message:

Une derniere correction pour le 1D

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read2.F90

    r4287 r4288  
    576576       'radT','uw','vw','q1','q2','sens','flat','ts','ustar'/
    577577
     578
    578579  do i=1,nbvar3d
    579580     print *,'Dans read_cas2, on va lire ',nid,i,name_var(i)
     
    589590     print *,'Dans read_cas2, on va lire ',var3didin(i),name_var(i)
    590591     if(i.LE.35) then
    591         ierr = NF90_GET_VAR(nid,var3didin(i),resul)
     592        ierr = NF90_GET_VAR(nid,var3didin(i),resul, count = [1, 1, nlevel, ntime])
    592593        print *,'Dans read_cas2, on a lu ',ierr,var3didin(i),name_var(i)
    593594        if(ierr/=NF_NOERR) then
     
    596597        endif
    597598     else
    598         ierr = NF90_GET_VAR(nid,var3didin(i),resul1)
    599599        print *,'Dans read_cas2, on a lu ',ierr,var3didin(i),name_var(i)
     600        ierr = NF90_GET_VAR(nid,var3didin(i),resul1, count = [1, 1, ntime])
    600601        if(ierr/=NF_NOERR) then
    601602           print *,'Pb a la lecture de cas.nc: ',name_var(i)
     
    711712        !-----------------------------------------------------------------------
    712713        if(i.LE.4) then     ! Lecture des coord pression en (nlevelp1,lat,lon)
    713            ierr = NF90_GET_VAR(nid,var3didin(i),apbp, &
    714                 count = [1, 1, nlevel + 1])
     714           ierr = NF90_GET_VAR(nid,var3didin(i),apbp, count = [1, 1, nlevel + 1])
    715715           print *,'read2_cas(apbp), on a lu ',i,name_var(i)
    716716           if(ierr/=NF_NOERR) then
     
    720720           !-----------------------------------------------------------------------
    721721        else if(i.gt.4.and.i.LE.45) then   ! Lecture des variables en (time,nlevel,lat,lon)
    722            ierr = NF90_GET_VAR(nid,var3didin(i),resul, &
    723                 count = [1, 1, nlevel, ntime])
     722           ierr = NF90_GET_VAR(nid,var3didin(i),resul, count = [1, 1, nlevel, ntime])
    724723           print *,'read2_cas(resul), on a lu ',i,name_var(i)
    725724           if(ierr/=NF_NOERR) then
Note: See TracChangeset for help on using the changeset viewer.