Ignore:
Timestamp:
May 26, 2020, 11:31:57 AM (4 years ago)
Author:
fhourdin
Message:

Correction format standard
Frédéric

File:
1 edited

Legend:

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

    r3680 r3683  
    313313
    314314      data name_var/ &
    315      ! coordonnees pression (n niveaux) profils intiaux #1-#15
     315     ! coordonnees pression (n niveaux) profils intiaux #1-#17
    316316     & 'qt','qv','ql','qi','rt','rv','rl','ri',                                                   &
    317317     & 'rh','temp','theta','thetal','u','v','tke',                                                &
    318      ! coordonnees pression (n niveaux) + temps #16-#42
     318     & 'height','pressure',                                                                       &
     319     ! coordonnees pression (n niveaux) + temps #18-#44
    319320     & 'height_forc','pressure_forc','w','omega','ug','vg','u_adv','v_adv',                       &
    320321     & 'temp_adv','theta_adv','thetal_adv','qt_adv','qv_adv','rt_adv','rv_adv',                   &
    321322     & 'temp_rad','theta_rad','thetal_rad','temp_nudging','theta_nudging','thetal_nudging',       &
    322323     & 'qv_nudging','qt_nudging','rv_nudging','rt_nudging','u_nudging','v_nudging',               &
    323      ! coordonnees temps #43-#53
     324     ! coordonnees temps #45-#55
    324325     & 'sfc_sens_flx','sfc_lat_flx','ts','ps','ps_forc','ustar',                                  &
    325      & 'wpthetap','wpqvp','wpqtp','wprtp','wprvp',                                                &             
    326      ! scalaires #54-55
    327      & 'height','pressure'/
     326     & 'wpthetap','wpqvp','wpqtp','wprtp','wprvp'/
     327     ! scalaires #56-57
     328     ! Aucune
    328329
    329330!-----------------------------------------------------------------------
     
    361362!  Reading 1D (N) vertical varialbes    (nlevel,lat,lon)   
    362363!-----------------------------------------------------------------------
    363            if(i.LE.15) then
     364           if(i.LE.17) then
    364365#ifdef NC_DOUBLE
    365366           ierr = NF_GET_VAR_DOUBLE(nid,var3didin(i),resul1)
     
    372373              stop "getvarup"
    373374           endif
    374          print*,'Lecture de la variable #i ',i,name_var(i),minval(resul1),maxval(resul1)
     375         print*,'Lecture de la variable (nlevel,lat,lon) #i ',i,name_var(i),minval(resul1),maxval(resul1)
    375376
    376377!-----------------------------------------------------------------------
     
    378379!  TBD : seems to be the same as above.
    379380!-----------------------------------------------------------------------
    380            else if(i.ge.16.and.i.LE.42) then
     381           else if(i.ge.18.and.i.LE.44) then
    381382#ifdef NC_DOUBLE
    382383           ierr = NF_GET_VAR_DOUBLE(nid,var3didin(i),resul)
     
    389390              stop "getvarup"
    390391           endif
    391          print*,'Lecture de la variable #i ',i,name_var(i),minval(resul),maxval(resul)
     392         print*,'Lecture de la variable (time,nlevel,lat,lon) #i ',i,name_var(i),minval(resul),maxval(resul)
    392393
    393394!-----------------------------------------------------------------------
    394395!  Reading 1D time variables (time,lat,lon)
    395396!-----------------------------------------------------------------------
    396            else if (i.gt.43.and.i.LE.53) then
     397           else if (i.gt.45.and.i.LE.55) then
    397398#ifdef NC_DOUBLE
    398399           ierr = NF_GET_VAR_DOUBLE(nid,var3didin(i),resul2)
     
    405406              stop "getvarup"
    406407           endif
    407          print*,'Lecture de la variable #i  ',i,name_var(i),minval(resul2),maxval(resul2)
     408         print*,'Lecture de la variable (time,lat,lon) #i  ',i,name_var(i),minval(resul2),maxval(resul2)
    408409!-----------------------------------------------------------------------
    409410! Reading scalar variables (t0,lat,lon)
     
    420421              stop "getvarup"
    421422           endif
    422          print*,'Lecture de la variable #i ',i,name_var(i),resul3
     423         print*,'Lecture de la variable  (t0,lat,lon) #i ',i,name_var(i),resul3
    423424           endif
    424425         endif
Note: See TracChangeset for help on using the changeset viewer.