Ignore:
Timestamp:
Oct 22, 2024, 11:35:08 AM (4 months ago)
Author:
abarral
Message:

Replace uses of cpp key NC_DOUBLE

Location:
LMDZ6/trunk/libf/phylmd/dyn1d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_amma_read.F90

    r5084 r5249  
    179179
    180180!program reading forcings of the AMMA case study
     181      USE netcdf, ONLY: nf90_get_var
    181182      implicit none
    182183      INCLUDE "netcdf.inc"
    … …  
    268269!      call catchaxis(nid,ntime,nlevel,time,z,ierr)
    269270 
    270 #ifdef NC_DOUBLE
    271          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(1),zz)
    272 #else
    273          ierr = NF_GET_VAR_REAL(nid,var3didin(1),zz)
    274 #endif
     271         ierr = nf90_get_var(nid, var3didin(1), zz)
    275272         if(ierr/=NF_NOERR) then
    276273            write(*,*) NF_STRERROR(ierr)
    … …  
    279276!          write(*,*)'lecture z ok',zz
    280277
    281 #ifdef NC_DOUBLE
    282          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(2),temp)
    283 #else
    284          ierr = NF_GET_VAR_REAL(nid,var3didin(2),temp)
    285 #endif
     278         ierr = nf90_get_var(nid, var3didin(2), temp)
    286279         if(ierr/=NF_NOERR) then
    287280            write(*,*) NF_STRERROR(ierr)
    … …  
    290283!          write(*,*)'lecture th ok',temp
    291284
    292 #ifdef NC_DOUBLE
    293          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(3),qv)
    294 #else
    295          ierr = NF_GET_VAR_REAL(nid,var3didin(3),qv)
    296 #endif
     285         ierr = nf90_get_var(nid, var3didin(3), qv)
    297286         if(ierr/=NF_NOERR) then
    298287            write(*,*) NF_STRERROR(ierr)
    … …  
    301290!          write(*,*)'lecture qv ok',qv
    302291 
    303 #ifdef NC_DOUBLE
    304          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(4),u)
    305 #else
    306          ierr = NF_GET_VAR_REAL(nid,var3didin(4),u)
    307 #endif
     292         ierr = nf90_get_var(nid, var3didin(4), u)
    308293         if(ierr/=NF_NOERR) then
    309294            write(*,*) NF_STRERROR(ierr)
    … …  
    312297!          write(*,*)'lecture u ok',u
    313298
    314 #ifdef NC_DOUBLE
    315          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(5),v)
    316 #else
    317          ierr = NF_GET_VAR_REAL(nid,var3didin(5),v)
    318 #endif
     299         ierr = nf90_get_var(nid, var3didin(5), v)
    319300         if(ierr/=NF_NOERR) then
    320301            write(*,*) NF_STRERROR(ierr)
    … …  
    323304!          write(*,*)'lecture v ok',v
    324305
    325 #ifdef NC_DOUBLE
    326          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(6),dw)
    327 #else
    328          ierr = NF_GET_VAR_REAL(nid,var3didin(6),dw)
    329 #endif
     306         ierr = nf90_get_var(nid, var3didin(6), dw)
    330307         if(ierr/=NF_NOERR) then
    331308            write(*,*) NF_STRERROR(ierr)
    … …  
    334311!          write(*,*)'lecture w ok',dw
    335312
    336 #ifdef NC_DOUBLE
    337          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(7),dt)
    338 #else
    339          ierr = NF_GET_VAR_REAL(nid,var3didin(7),dt)
    340 #endif
     313         ierr = nf90_get_var(nid, var3didin(7), dt)
    341314         if(ierr/=NF_NOERR) then
    342315            write(*,*) NF_STRERROR(ierr)
    … …  
    345318!          write(*,*)'lecture dt ok',dt
    346319
    347 #ifdef NC_DOUBLE
    348          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(8),dq)
    349 #else
    350          ierr = NF_GET_VAR_REAL(nid,var3didin(8),dq)
    351 #endif
     320         ierr = nf90_get_var(nid, var3didin(8), dq)
    352321         if(ierr/=NF_NOERR) then
    353322            write(*,*) NF_STRERROR(ierr)
    … …  
    356325!          write(*,*)'lecture dq ok',dq
    357326
    358 #ifdef NC_DOUBLE
    359          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(9),sens)
    360 #else
    361          ierr = NF_GET_VAR_REAL(nid,var3didin(9),sens)
    362 #endif
     327         ierr = nf90_get_var(nid, var3didin(9), sens)
    363328         if(ierr/=NF_NOERR) then
    364329            write(*,*) NF_STRERROR(ierr)
    … …  
    367332!          write(*,*)'lecture sens ok',sens
    368333
    369 #ifdef NC_DOUBLE
    370          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(10),flat)
    371 #else
    372          ierr = NF_GET_VAR_REAL(nid,var3didin(10),flat)
    373 #endif
     334         ierr = nf90_get_var(nid, var3didin(10), flat)
    374335         if(ierr/=NF_NOERR) then
    375336            write(*,*) NF_STRERROR(ierr)
    … …  
    378339!          write(*,*)'lecture flat ok',flat
    379340
    380 #ifdef NC_DOUBLE
    381          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(11),pp)
    382 #else
    383          ierr = NF_GET_VAR_REAL(nid,var3didin(11),pp)
    384 #endif
     341         ierr = nf90_get_var(nid, var3didin(11), pp)
    385342         if(ierr/=NF_NOERR) then
    386343            write(*,*) NF_STRERROR(ierr)
    … …  
    437394       endif
    438395       if (annee_ref.eq.2006 .and. day1.lt.day_ini_amma) then
    439         print*,'AMMA a débuté le 10 juillet 2006',day1,day_ini_amma
     396        print*,'AMMA a d�but� le 10 juillet 2006',day1,day_ini_amma
    440397        print*,'Changer dayref dans run.def'
    441398        stop

  • LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read.F90

    r5084 r5249  
    266266
    267267!program reading forcing of the case study
     268      USE netcdf, ONLY: nf90_get_var
    268269      implicit none
    269270      INCLUDE "netcdf.inc"
    … …  
    532533         endif
    533534 
    534 #ifdef NC_DOUBLE
    535          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(1),zz)
    536 #else
    537          ierr = NF_GET_VAR_REAL(nid,var3didin(1),zz)
    538 #endif
     535         ierr = nf90_get_var(nid, var3didin(1), zz)
    539536         if(ierr/=NF_NOERR) then
    540537            write(*,*) NF_STRERROR(ierr)
    … …  
    543540!          write(*,*)'lecture z ok',zz
    544541
    545 #ifdef NC_DOUBLE
    546          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(2),pp)
    547 #else
    548          ierr = NF_GET_VAR_REAL(nid,var3didin(2),pp)
    549 #endif
     542         ierr = nf90_get_var(nid, var3didin(2), pp)
    550543         if(ierr/=NF_NOERR) then
    551544            write(*,*) NF_STRERROR(ierr)
    … …  
    555548
    556549
    557 #ifdef NC_DOUBLE
    558          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(3),temp)
    559 #else
    560          ierr = NF_GET_VAR_REAL(nid,var3didin(3),temp)
    561 #endif
     550         ierr = nf90_get_var(nid, var3didin(3), temp)
    562551         if(ierr/=NF_NOERR) then
    563552            write(*,*) NF_STRERROR(ierr)
    … …  
    566555!          write(*,*)'lecture T ok',temp
    567556
    568 #ifdef NC_DOUBLE
    569          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(4),qv)
    570 #else
    571          ierr = NF_GET_VAR_REAL(nid,var3didin(4),qv)
    572 #endif
     557         ierr = nf90_get_var(nid, var3didin(4), qv)
    573558         if(ierr/=NF_NOERR) then
    574559            write(*,*) NF_STRERROR(ierr)
    … …  
    577562!          write(*,*)'lecture qv ok',qv
    578563 
    579 #ifdef NC_DOUBLE
    580          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(5),rh)
    581 #else
    582          ierr = NF_GET_VAR_REAL(nid,var3didin(5),rh)
    583 #endif
     564         ierr = nf90_get_var(nid, var3didin(5), rh)
    584565         if(ierr/=NF_NOERR) then
    585566            write(*,*) NF_STRERROR(ierr)
    … …  
    588569!          write(*,*)'lecture rh ok',rh
    589570
    590 #ifdef NC_DOUBLE
    591          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(6),theta)
    592 #else
    593          ierr = NF_GET_VAR_REAL(nid,var3didin(6),theta)
    594 #endif
     571         ierr = nf90_get_var(nid, var3didin(6), theta)
    595572         if(ierr/=NF_NOERR) then
    596573            write(*,*) NF_STRERROR(ierr)
    … …  
    599576!          write(*,*)'lecture theta ok',theta
    600577
    601 #ifdef NC_DOUBLE
    602          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(7),rv)
    603 #else
    604          ierr = NF_GET_VAR_REAL(nid,var3didin(7),rv)
    605 #endif
     578         ierr = nf90_get_var(nid, var3didin(7), rv)
    606579         if(ierr/=NF_NOERR) then
    607580            write(*,*) NF_STRERROR(ierr)
    … …  
    610583!          write(*,*)'lecture rv ok',rv
    611584
    612 #ifdef NC_DOUBLE
    613          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(8),u)
    614 #else
    615          ierr = NF_GET_VAR_REAL(nid,var3didin(8),u)
    616 #endif
     585         ierr = nf90_get_var(nid, var3didin(8), u)
    617586         if(ierr/=NF_NOERR) then
    618587            write(*,*) NF_STRERROR(ierr)
    … …  
    621590!          write(*,*)'lecture u ok',u
    622591
    623 #ifdef NC_DOUBLE
    624          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(9),v)
    625 #else
    626          ierr = NF_GET_VAR_REAL(nid,var3didin(9),v)
    627 #endif
     592         ierr = nf90_get_var(nid, var3didin(9), v)
    628593         if(ierr/=NF_NOERR) then
    629594            write(*,*) NF_STRERROR(ierr)
    … …  
    632597!          write(*,*)'lecture v ok',v
    633598
    634 #ifdef NC_DOUBLE
    635          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(10),ug)
    636 #else
    637          ierr = NF_GET_VAR_REAL(nid,var3didin(10),ug)
    638 #endif
     599         ierr = nf90_get_var(nid, var3didin(10), ug)
    639600         if(ierr/=NF_NOERR) then
    640601            write(*,*) NF_STRERROR(ierr)
    … …  
    643604!          write(*,*)'lecture ug ok',ug
    644605
    645 #ifdef NC_DOUBLE
    646          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(11),vg)
    647 #else
    648          ierr = NF_GET_VAR_REAL(nid,var3didin(11),vg)
    649 #endif
     606         ierr = nf90_get_var(nid, var3didin(11), vg)
    650607         if(ierr/=NF_NOERR) then
    651608            write(*,*) NF_STRERROR(ierr)
    … …  
    654611!          write(*,*)'lecture vg ok',vg
    655612
    656 #ifdef NC_DOUBLE
    657          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(12),w)
    658 #else
    659          ierr = NF_GET_VAR_REAL(nid,var3didin(12),w)
    660 #endif
     613         ierr = nf90_get_var(nid, var3didin(12), w)
    661614         if(ierr/=NF_NOERR) then
    662615            write(*,*) NF_STRERROR(ierr)
    … …  
    665618!          write(*,*)'lecture w ok',w
    666619
    667 #ifdef NC_DOUBLE
    668          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(13),du)
    669 #else
    670          ierr = NF_GET_VAR_REAL(nid,var3didin(13),du)
    671 #endif
     620         ierr = nf90_get_var(nid, var3didin(13), du)
    672621         if(ierr/=NF_NOERR) then
    673622            write(*,*) NF_STRERROR(ierr)
    … …  
    676625!          write(*,*)'lecture du ok',du
    677626
    678 #ifdef NC_DOUBLE
    679          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(14),hu)
    680 #else
    681          ierr = NF_GET_VAR_REAL(nid,var3didin(14),hu)
    682 #endif
     627         ierr = nf90_get_var(nid, var3didin(14), hu)
    683628         if(ierr/=NF_NOERR) then
    684629            write(*,*) NF_STRERROR(ierr)
    … …  
    687632!          write(*,*)'lecture hu ok',hu
    688633
    689 #ifdef NC_DOUBLE
    690          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(15),vu)
    691 #else
    692          ierr = NF_GET_VAR_REAL(nid,var3didin(15),vu)
    693 #endif
     634         ierr = nf90_get_var(nid, var3didin(15), vu)
    694635         if(ierr/=NF_NOERR) then
    695636            write(*,*) NF_STRERROR(ierr)
    … …  
    698639!          write(*,*)'lecture vu ok',vu
    699640
    700 #ifdef NC_DOUBLE
    701          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(16),dv)
    702 #else
    703          ierr = NF_GET_VAR_REAL(nid,var3didin(16),dv)
    704 #endif
     641         ierr = nf90_get_var(nid, var3didin(16), dv)
    705642         if(ierr/=NF_NOERR) then
    706643            write(*,*) NF_STRERROR(ierr)
    … …  
    709646!          write(*,*)'lecture dv ok',dv
    710647
    711 #ifdef NC_DOUBLE
    712          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(17),hv)
    713 #else
    714          ierr = NF_GET_VAR_REAL(nid,var3didin(17),hv)
    715 #endif
     648         ierr = nf90_get_var(nid, var3didin(17), hv)
    716649         if(ierr/=NF_NOERR) then
    717650            write(*,*) NF_STRERROR(ierr)
    … …  
    720653!          write(*,*)'lecture hv ok',hv
    721654
    722 #ifdef NC_DOUBLE
    723          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(18),vv)
    724 #else
    725          ierr = NF_GET_VAR_REAL(nid,var3didin(18),vv)
    726 #endif
     655         ierr = nf90_get_var(nid, var3didin(18), vv)
    727656         if(ierr/=NF_NOERR) then
    728657            write(*,*) NF_STRERROR(ierr)
    … …  
    731660!          write(*,*)'lecture vv ok',vv
    732661
    733 #ifdef NC_DOUBLE
    734          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(19),dt)
    735 #else
    736          ierr = NF_GET_VAR_REAL(nid,var3didin(19),dt)
    737 #endif
     662         ierr = nf90_get_var(nid, var3didin(19), dt)
    738663         if(ierr/=NF_NOERR) then
    739664            write(*,*) NF_STRERROR(ierr)
    … …  
    742667!          write(*,*)'lecture dt ok',dt
    743668
    744 #ifdef NC_DOUBLE
    745          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(20),ht)
    746 #else
    747          ierr = NF_GET_VAR_REAL(nid,var3didin(20),ht)
    748 #endif
     669         ierr = nf90_get_var(nid, var3didin(20), ht)
    749670         if(ierr/=NF_NOERR) then
    750671            write(*,*) NF_STRERROR(ierr)
    … …  
    753674!          write(*,*)'lecture ht ok',ht
    754675
    755 #ifdef NC_DOUBLE
    756          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(21),vt)
    757 #else
    758          ierr = NF_GET_VAR_REAL(nid,var3didin(21),vt)
    759 #endif
     676         ierr = nf90_get_var(nid, var3didin(21), vt)
    760677         if(ierr/=NF_NOERR) then
    761678            write(*,*) NF_STRERROR(ierr)
    … …  
    764681!          write(*,*)'lecture vt ok',vt
    765682
    766 #ifdef NC_DOUBLE
    767          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(22),dq)
    768 #else
    769          ierr = NF_GET_VAR_REAL(nid,var3didin(22),dq)
    770 #endif
     683         ierr = nf90_get_var(nid, var3didin(22), dq)
    771684         if(ierr/=NF_NOERR) then
    772685            write(*,*) NF_STRERROR(ierr)
    … …  
    775688!          write(*,*)'lecture dq ok',dq
    776689
    777 #ifdef NC_DOUBLE
    778          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(23),hq)
    779 #else
    780          ierr = NF_GET_VAR_REAL(nid,var3didin(23),hq)
    781 #endif
     690         ierr = nf90_get_var(nid, var3didin(23), hq)
    782691         if(ierr/=NF_NOERR) then
    783692            write(*,*) NF_STRERROR(ierr)
    … …  
    786695!          write(*,*)'lecture hq ok',hq
    787696
    788 #ifdef NC_DOUBLE
    789          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(24),vq)
    790 #else
    791          ierr = NF_GET_VAR_REAL(nid,var3didin(24),vq)
    792 #endif
     697         ierr = nf90_get_var(nid, var3didin(24), vq)
    793698         if(ierr/=NF_NOERR) then
    794699            write(*,*) NF_STRERROR(ierr)
    … …  
    797702!          write(*,*)'lecture vq ok',vq
    798703
    799 #ifdef NC_DOUBLE
    800          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(25),dth)
    801 #else
    802          ierr = NF_GET_VAR_REAL(nid,var3didin(25),dth)
    803 #endif
     704         ierr = nf90_get_var(nid, var3didin(25), dth)
    804705         if(ierr/=NF_NOERR) then
    805706            write(*,*) NF_STRERROR(ierr)
    … …  
    808709!          write(*,*)'lecture dth ok',dth
    809710
    810 #ifdef NC_DOUBLE
    811          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(26),hth)
    812 #else
    813          ierr = NF_GET_VAR_REAL(nid,var3didin(26),hth)
    814 #endif
     711         ierr = nf90_get_var(nid, var3didin(26), hth)
    815712         if(ierr/=NF_NOERR) then
    816713            write(*,*) NF_STRERROR(ierr)
    … …  
    819716!          write(*,*)'lecture hth ok',hth
    820717
    821 #ifdef NC_DOUBLE
    822          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(27),vth)
    823 #else
    824          ierr = NF_GET_VAR_REAL(nid,var3didin(27),vth)
    825 #endif
     718         ierr = nf90_get_var(nid, var3didin(27), vth)
    826719         if(ierr/=NF_NOERR) then
    827720            write(*,*) NF_STRERROR(ierr)
    … …  
    830723!          write(*,*)'lecture vth ok',vth
    831724
    832 #ifdef NC_DOUBLE
    833          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(28),dr)
    834 #else
    835          ierr = NF_GET_VAR_REAL(nid,var3didin(28),dr)
    836 #endif
     725         ierr = nf90_get_var(nid, var3didin(28), dr)
    837726         if(ierr/=NF_NOERR) then
    838727            write(*,*) NF_STRERROR(ierr)
    … …  
    841730!          write(*,*)'lecture dr ok',dr
    842731
    843 #ifdef NC_DOUBLE
    844          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(29),hr)
    845 #else
    846          ierr = NF_GET_VAR_REAL(nid,var3didin(29),hr)
    847 #endif
     732         ierr = nf90_get_var(nid, var3didin(29), hr)
    848733         if(ierr/=NF_NOERR) then
    849734            write(*,*) NF_STRERROR(ierr)
    … …  
    852737!          write(*,*)'lecture hr ok',hr
    853738
    854 #ifdef NC_DOUBLE
    855          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(30),vr)
    856 #else
    857          ierr = NF_GET_VAR_REAL(nid,var3didin(30),vr)
    858 #endif
     739         ierr = nf90_get_var(nid, var3didin(30), vr)
    859740         if(ierr/=NF_NOERR) then
    860741            write(*,*) NF_STRERROR(ierr)
    … …  
    863744!          write(*,*)'lecture vr ok',vr
    864745
    865 #ifdef NC_DOUBLE
    866          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(31),dtrad)
    867 #else
    868          ierr = NF_GET_VAR_REAL(nid,var3didin(31),dtrad)
    869 #endif
     746         ierr = nf90_get_var(nid, var3didin(31), dtrad)
    870747         if(ierr/=NF_NOERR) then
    871748            write(*,*) NF_STRERROR(ierr)
    … …  
    874751!          write(*,*)'lecture dtrad ok',dtrad
    875752
    876 #ifdef NC_DOUBLE
    877          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(32),sens)
    878 #else
    879          ierr = NF_GET_VAR_REAL(nid,var3didin(32),sens)
    880 #endif
     753         ierr = nf90_get_var(nid, var3didin(32), sens)
    881754         if(ierr/=NF_NOERR) then
    882755            write(*,*) NF_STRERROR(ierr)
    … …  
    885758!          write(*,*)'lecture sens ok',sens
    886759
    887 #ifdef NC_DOUBLE
    888          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(33),flat)
    889 #else
    890          ierr = NF_GET_VAR_REAL(nid,var3didin(33),flat)
    891 #endif
     760         ierr = nf90_get_var(nid, var3didin(33), flat)
    892761         if(ierr/=NF_NOERR) then
    893762            write(*,*) NF_STRERROR(ierr)
    … …  
    896765!          write(*,*)'lecture flat ok',flat
    897766
    898 #ifdef NC_DOUBLE
    899          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(34),ts)
    900 #else
    901          ierr = NF_GET_VAR_REAL(nid,var3didin(34),ts)
    902 #endif
     767         ierr = nf90_get_var(nid, var3didin(34), ts)
    903768         if(ierr/=NF_NOERR) then
    904769            write(*,*) NF_STRERROR(ierr)
    … …  
    907772!          write(*,*)'lecture ts ok',ts
    908773
    909 #ifdef NC_DOUBLE
    910          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(35),ustar)
    911 #else
    912          ierr = NF_GET_VAR_REAL(nid,var3didin(35),ustar)
    913 #endif
     774         ierr = nf90_get_var(nid, var3didin(35), ustar)
    914775         if(ierr/=NF_NOERR) then
    915776            write(*,*) NF_STRERROR(ierr)
    … …  
    918779!         write(*,*)'lecture ustar ok',ustar
    919780
    920 #ifdef NC_DOUBLE
    921          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(36),uw)
    922 #else
    923          ierr = NF_GET_VAR_REAL(nid,var3didin(36),uw)
    924 #endif
     781         ierr = nf90_get_var(nid, var3didin(36), uw)
    925782         if(ierr/=NF_NOERR) then
    926783            write(*,*) NF_STRERROR(ierr)
    … …  
    929786!         write(*,*)'lecture uw ok',uw
    930787
    931 #ifdef NC_DOUBLE
    932          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(37),vw)
    933 #else
    934          ierr = NF_GET_VAR_REAL(nid,var3didin(37),vw)
    935 #endif
     788         ierr = nf90_get_var(nid, var3didin(37), vw)
    936789         if(ierr/=NF_NOERR) then
    937790            write(*,*) NF_STRERROR(ierr)
    … …  
    940793!         write(*,*)'lecture vw ok',vw
    941794
    942 #ifdef NC_DOUBLE
    943          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(38),q1)
    944 #else
    945          ierr = NF_GET_VAR_REAL(nid,var3didin(38),q1)
    946 #endif
     795         ierr = nf90_get_var(nid, var3didin(38), q1)
    947796         if(ierr/=NF_NOERR) then
    948797            write(*,*) NF_STRERROR(ierr)
    … …  
    951800!         write(*,*)'lecture q1 ok',q1
    952801
    953 #ifdef NC_DOUBLE
    954          ierr = NF_GET_VAR_DOUBLE(nid,var3didin(39),q2)
    955 #else
    956          ierr = NF_GET_VAR_REAL(nid,var3didin(39),q2)
    957 #endif
     802         ierr = nf90_get_var(nid, var3didin(39), q2)
    958803         if(ierr/=NF_NOERR) then
    959804            write(*,*) NF_STRERROR(ierr)
Note: See TracChangeset for help on using the changeset viewer.