Ignore:
Timestamp:
Jul 20, 2024, 4:30:31 PM (3 months ago)
Author:
abarral
Message:

Remove all managed netcdf77 usage (excluding external: rrtm, ecrad)
Remove call to netcdf.inc
Replace USE lmdz_netcdf by USE netcdf
Replace lmdz_netcdf.F90 by lmdz_netcdf_format.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_cases_read.F90

    r5087 r5088  
    11MODULE mod_1D_cases_read
    2   USE lmdz_netcdf, ONLY: nf_noerr,nf_strerror,nf_inq_varid,nf_inq_dimlen,nf_inq_dimid,&
    3           nf_nowrite,nf_open,nf90_get_var
     2  USE netcdf, ONLY: nf90_noerr,nf90_strerror,nf90_inq_varid,nf90_inquire_dimension,nf90_inq_dimid,&
     3          nf90_nowrite,nf90_open,nf90_get_var
    44
    55!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    … …  
    9393      fich_cas='setup/cas.nc'
    9494      print*,'fich_cas ',fich_cas
    95       ierr = NF_OPEN(fich_cas,NF_NOWRITE,nid)
    96       print*,'fich_cas,NF_NOWRITE,nid ',fich_cas,NF_NOWRITE,nid
    97       if (ierr/=NF_NOERR) then
     95      ierr = nf90_open(fich_cas,nf90_nowrite,nid)
     96      print*,'fich_cas,nf90_nowrite,nid ',fich_cas,nf90_nowrite,nid
     97      if (ierr/=nf90_noerr) then
    9898         write(*,*) 'ERROR: GROS Pb opening forcings nc file '
    99          write(*,*) NF_STRERROR(ierr)
     99         write(*,*) nf90_strerror(ierr)
    100100         stop ""
    101101      endif
    102102!.......................................................................
    103       ierr=NF_INQ_DIMID(nid,'lat',rid)
    104       IF (ierr/=NF_NOERR) THEN
     103      ierr=nf90_inq_dimid(nid,'lat',rid)
     104      IF (ierr/=nf90_noerr) THEN
    105105         print*, 'Oh probleme lecture dimension lat'
    106106      ENDIF
    107       ierr=NF_INQ_DIMLEN(nid,rid,ii)
     107      ierr=nf90_inquire_dimension(nid,rid,len=ii)
    108108      print*,'OK1 nid,rid,lat',nid,rid,ii
    109109!.......................................................................
    110       ierr=NF_INQ_DIMID(nid,'lon',rid)
    111       IF (ierr/=NF_NOERR) THEN
     110      ierr=nf90_inq_dimid(nid,'lon',rid)
     111      IF (ierr/=nf90_noerr) THEN
    112112         print*, 'Oh probleme lecture dimension lon'
    113113      ENDIF
    114       ierr=NF_INQ_DIMLEN(nid,rid,jj)
     114      ierr=nf90_inquire_dimension(nid,rid,len=jj)
    115115      print*,'OK2 nid,rid,lat',nid,rid,jj
    116116!.......................................................................
    117       ierr=NF_INQ_DIMID(nid,'lev',rid)
    118       IF (ierr/=NF_NOERR) THEN
     117      ierr=nf90_inq_dimid(nid,'lev',rid)
     118      IF (ierr/=nf90_noerr) THEN
    119119         print*, 'Oh probleme lecture dimension zz'
    120120      ENDIF
    121       ierr=NF_INQ_DIMLEN(nid,rid,nlev_cas)
     121      ierr=nf90_inquire_dimension(nid,rid,len=nlev_cas)
    122122      print*,'OK3 nid,rid,nlev_cas',nid,rid,nlev_cas
    123123!.......................................................................
    124       ierr=NF_INQ_DIMID(nid,'time',rid)
     124      ierr=nf90_inq_dimid(nid,'time',rid)
    125125      print*,'nid,rid',nid,rid
    126126      nt_cas=0
    127       IF (ierr/=NF_NOERR) THEN
     127      IF (ierr/=nf90_noerr) THEN
    128128        stop 'probleme lecture dimension sens'
    129129      ENDIF
    130       ierr=NF_INQ_DIMLEN(nid,rid,nt_cas)
     130      ierr=nf90_inquire_dimension(nid,rid,len=nt_cas)
    131131      print*,'OK4 nid,rid,nt_cas',nid,rid,nt_cas
    132132
    … …  
    288288      integer var3didin(nbvar3d)
    289289
    290        ierr=NF_INQ_VARID(nid,"zz",var3didin(1))
    291          if(ierr/=NF_NOERR) then
    292            write(*,*) NF_STRERROR(ierr)
     290       ierr=nf90_inq_varid(nid,"zz",var3didin(1))
     291         if(ierr/=nf90_noerr) then
     292           write(*,*) nf90_strerror(ierr)
    293293           stop 'lev'
    294294         endif
    295295
    296       ierr=NF_INQ_VARID(nid,"pp",var3didin(2))
    297          if(ierr/=NF_NOERR) then
    298            write(*,*) NF_STRERROR(ierr)
     296      ierr=nf90_inq_varid(nid,"pp",var3didin(2))
     297         if(ierr/=nf90_noerr) then
     298           write(*,*) nf90_strerror(ierr)
    299299           stop 'plev'
    300300         endif
    301301
    302302
    303       ierr=NF_INQ_VARID(nid,"temp",var3didin(3))
    304          if(ierr/=NF_NOERR) then
    305            write(*,*) NF_STRERROR(ierr)
     303      ierr=nf90_inq_varid(nid,"temp",var3didin(3))
     304         if(ierr/=nf90_noerr) then
     305           write(*,*) nf90_strerror(ierr)
    306306           stop 'temp'
    307307         endif
    308308
    309       ierr=NF_INQ_VARID(nid,"qv",var3didin(4))
    310          if(ierr/=NF_NOERR) then
    311            write(*,*) NF_STRERROR(ierr)
     309      ierr=nf90_inq_varid(nid,"qv",var3didin(4))
     310         if(ierr/=nf90_noerr) then
     311           write(*,*) nf90_strerror(ierr)
    312312           stop 'qv'
    313313         endif
    314314
    315       ierr=NF_INQ_VARID(nid,"rh",var3didin(5))
    316          if(ierr/=NF_NOERR) then
    317            write(*,*) NF_STRERROR(ierr)
     315      ierr=nf90_inq_varid(nid,"rh",var3didin(5))
     316         if(ierr/=nf90_noerr) then
     317           write(*,*) nf90_strerror(ierr)
    318318           stop 'rh'
    319319         endif
    320320
    321       ierr=NF_INQ_VARID(nid,"theta",var3didin(6))
    322          if(ierr/=NF_NOERR) then
    323            write(*,*) NF_STRERROR(ierr)
     321      ierr=nf90_inq_varid(nid,"theta",var3didin(6))
     322         if(ierr/=nf90_noerr) then
     323           write(*,*) nf90_strerror(ierr)
    324324           stop 'theta'
    325325         endif
    326326
    327       ierr=NF_INQ_VARID(nid,"rv",var3didin(7))
    328          if(ierr/=NF_NOERR) then
    329            write(*,*) NF_STRERROR(ierr)
     327      ierr=nf90_inq_varid(nid,"rv",var3didin(7))
     328         if(ierr/=nf90_noerr) then
     329           write(*,*) nf90_strerror(ierr)
    330330           stop 'rv'
    331331         endif
    332332
    333333
    334       ierr=NF_INQ_VARID(nid,"u",var3didin(8))
    335          if(ierr/=NF_NOERR) then
    336            write(*,*) NF_STRERROR(ierr)
     334      ierr=nf90_inq_varid(nid,"u",var3didin(8))
     335         if(ierr/=nf90_noerr) then
     336           write(*,*) nf90_strerror(ierr)
    337337           stop 'u'
    338338         endif
    339339
    340       ierr=NF_INQ_VARID(nid,"v",var3didin(9))
    341          if(ierr/=NF_NOERR) then
    342            write(*,*) NF_STRERROR(ierr)
     340      ierr=nf90_inq_varid(nid,"v",var3didin(9))
     341         if(ierr/=nf90_noerr) then
     342           write(*,*) nf90_strerror(ierr)
    343343           stop 'v'
    344344         endif
    345345
    346        ierr=NF_INQ_VARID(nid,"ug",var3didin(10))
    347          if(ierr/=NF_NOERR) then
    348            write(*,*) NF_STRERROR(ierr)
     346       ierr=nf90_inq_varid(nid,"ug",var3didin(10))
     347         if(ierr/=nf90_noerr) then
     348           write(*,*) nf90_strerror(ierr)
    349349           stop 'ug'
    350350         endif
    351351
    352       ierr=NF_INQ_VARID(nid,"vg",var3didin(11))
    353          if(ierr/=NF_NOERR) then
    354            write(*,*) NF_STRERROR(ierr)
     352      ierr=nf90_inq_varid(nid,"vg",var3didin(11))
     353         if(ierr/=nf90_noerr) then
     354           write(*,*) nf90_strerror(ierr)
    355355           stop 'vg'
    356356         endif
    357357
    358       ierr=NF_INQ_VARID(nid,"w",var3didin(12))
    359          if(ierr/=NF_NOERR) then
    360            write(*,*) NF_STRERROR(ierr)
     358      ierr=nf90_inq_varid(nid,"w",var3didin(12))
     359         if(ierr/=nf90_noerr) then
     360           write(*,*) nf90_strerror(ierr)
    361361           stop 'w'
    362362         endif
    363363
    364       ierr=NF_INQ_VARID(nid,"advu",var3didin(13))
    365          if(ierr/=NF_NOERR) then
    366            write(*,*) NF_STRERROR(ierr)
     364      ierr=nf90_inq_varid(nid,"advu",var3didin(13))
     365         if(ierr/=nf90_noerr) then
     366           write(*,*) nf90_strerror(ierr)
    367367           stop 'advu'
    368368         endif
    369369
    370       ierr=NF_INQ_VARID(nid,"hu",var3didin(14))
    371          if(ierr/=NF_NOERR) then
    372            write(*,*) NF_STRERROR(ierr)
     370      ierr=nf90_inq_varid(nid,"hu",var3didin(14))
     371         if(ierr/=nf90_noerr) then
     372           write(*,*) nf90_strerror(ierr)
    373373           stop 'hu'
    374374         endif
    375375
    376        ierr=NF_INQ_VARID(nid,"vu",var3didin(15))
    377          if(ierr/=NF_NOERR) then
    378            write(*,*) NF_STRERROR(ierr)
     376       ierr=nf90_inq_varid(nid,"vu",var3didin(15))
     377         if(ierr/=nf90_noerr) then
     378           write(*,*) nf90_strerror(ierr)
    379379           stop 'vu'
    380380         endif
    381381
    382        ierr=NF_INQ_VARID(nid,"advv",var3didin(16))
    383          if(ierr/=NF_NOERR) then
    384            write(*,*) NF_STRERROR(ierr)
     382       ierr=nf90_inq_varid(nid,"advv",var3didin(16))
     383         if(ierr/=nf90_noerr) then
     384           write(*,*) nf90_strerror(ierr)
    385385           stop 'advv'
    386386         endif
    387387
    388       ierr=NF_INQ_VARID(nid,"hv",var3didin(17))
    389          if(ierr/=NF_NOERR) then
    390            write(*,*) NF_STRERROR(ierr)
     388      ierr=nf90_inq_varid(nid,"hv",var3didin(17))
     389         if(ierr/=nf90_noerr) then
     390           write(*,*) nf90_strerror(ierr)
    391391           stop 'hv'
    392392         endif
    393393
    394        ierr=NF_INQ_VARID(nid,"vv",var3didin(18))
    395          if(ierr/=NF_NOERR) then
    396            write(*,*) NF_STRERROR(ierr)
     394       ierr=nf90_inq_varid(nid,"vv",var3didin(18))
     395         if(ierr/=nf90_noerr) then
     396           write(*,*) nf90_strerror(ierr)
    397397           stop 'vv'
    398398         endif
    399399
    400       ierr=NF_INQ_VARID(nid,"advT",var3didin(19))
    401          if(ierr/=NF_NOERR) then
    402            write(*,*) NF_STRERROR(ierr)
     400      ierr=nf90_inq_varid(nid,"advT",var3didin(19))
     401         if(ierr/=nf90_noerr) then
     402           write(*,*) nf90_strerror(ierr)
    403403           stop 'advT'
    404404         endif
    405405
    406       ierr=NF_INQ_VARID(nid,"hT",var3didin(20))
    407          if(ierr/=NF_NOERR) then
    408            write(*,*) NF_STRERROR(ierr)
     406      ierr=nf90_inq_varid(nid,"hT",var3didin(20))
     407         if(ierr/=nf90_noerr) then
     408           write(*,*) nf90_strerror(ierr)
    409409           stop 'hT'
    410410         endif
    411411
    412       ierr=NF_INQ_VARID(nid,"vT",var3didin(21))
    413          if(ierr/=NF_NOERR) then
    414            write(*,*) NF_STRERROR(ierr)
     412      ierr=nf90_inq_varid(nid,"vT",var3didin(21))
     413         if(ierr/=nf90_noerr) then
     414           write(*,*) nf90_strerror(ierr)
    415415           stop 'vT'
    416416         endif
    417417
    418       ierr=NF_INQ_VARID(nid,"advq",var3didin(22))
    419          if(ierr/=NF_NOERR) then
    420            write(*,*) NF_STRERROR(ierr)
     418      ierr=nf90_inq_varid(nid,"advq",var3didin(22))
     419         if(ierr/=nf90_noerr) then
     420           write(*,*) nf90_strerror(ierr)
    421421           stop 'advq'
    422422         endif
    423423
    424       ierr=NF_INQ_VARID(nid,"hq",var3didin(23))
    425          if(ierr/=NF_NOERR) then
    426            write(*,*) NF_STRERROR(ierr)
     424      ierr=nf90_inq_varid(nid,"hq",var3didin(23))
     425         if(ierr/=nf90_noerr) then
     426           write(*,*) nf90_strerror(ierr)
    427427           stop 'hq'
    428428         endif
    429429
    430       ierr=NF_INQ_VARID(nid,"vq",var3didin(24))
    431          if(ierr/=NF_NOERR) then
    432            write(*,*) NF_STRERROR(ierr)
     430      ierr=nf90_inq_varid(nid,"vq",var3didin(24))
     431         if(ierr/=nf90_noerr) then
     432           write(*,*) nf90_strerror(ierr)
    433433           stop 'vq'
    434434         endif
    435435
    436       ierr=NF_INQ_VARID(nid,"advth",var3didin(25))
    437          if(ierr/=NF_NOERR) then
    438            write(*,*) NF_STRERROR(ierr)
     436      ierr=nf90_inq_varid(nid,"advth",var3didin(25))
     437         if(ierr/=nf90_noerr) then
     438           write(*,*) nf90_strerror(ierr)
    439439           stop 'advth'
    440440         endif
    441441
    442       ierr=NF_INQ_VARID(nid,"hth",var3didin(26))
    443          if(ierr/=NF_NOERR) then
    444            write(*,*) NF_STRERROR(ierr)
     442      ierr=nf90_inq_varid(nid,"hth",var3didin(26))
     443         if(ierr/=nf90_noerr) then
     444           write(*,*) nf90_strerror(ierr)
    445445           stop 'hth'
    446446         endif
    447447
    448       ierr=NF_INQ_VARID(nid,"vth",var3didin(27))
    449          if(ierr/=NF_NOERR) then
    450            write(*,*) NF_STRERROR(ierr)
     448      ierr=nf90_inq_varid(nid,"vth",var3didin(27))
     449         if(ierr/=nf90_noerr) then
     450           write(*,*) nf90_strerror(ierr)
    451451           stop 'vth'
    452452         endif
    453453
    454       ierr=NF_INQ_VARID(nid,"advr",var3didin(28))
    455          if(ierr/=NF_NOERR) then
    456            write(*,*) NF_STRERROR(ierr)
     454      ierr=nf90_inq_varid(nid,"advr",var3didin(28))
     455         if(ierr/=nf90_noerr) then
     456           write(*,*) nf90_strerror(ierr)
    457457           stop 'advr'
    458458         endif
    459459
    460       ierr=NF_INQ_VARID(nid,"hr",var3didin(29))
    461          if(ierr/=NF_NOERR) then
    462            write(*,*) NF_STRERROR(ierr)
     460      ierr=nf90_inq_varid(nid,"hr",var3didin(29))
     461         if(ierr/=nf90_noerr) then
     462           write(*,*) nf90_strerror(ierr)
    463463           stop 'hr'
    464464         endif
    465465
    466       ierr=NF_INQ_VARID(nid,"vr",var3didin(30))
    467          if(ierr/=NF_NOERR) then
    468            write(*,*) NF_STRERROR(ierr)
     466      ierr=nf90_inq_varid(nid,"vr",var3didin(30))
     467         if(ierr/=nf90_noerr) then
     468           write(*,*) nf90_strerror(ierr)
    469469           stop 'vr'
    470470         endif
    471471
    472       ierr=NF_INQ_VARID(nid,"radT",var3didin(31))
    473          if(ierr/=NF_NOERR) then
    474            write(*,*) NF_STRERROR(ierr)
     472      ierr=nf90_inq_varid(nid,"radT",var3didin(31))
     473         if(ierr/=nf90_noerr) then
     474           write(*,*) nf90_strerror(ierr)
    475475           stop 'radT'
    476476         endif
    477477
    478       ierr=NF_INQ_VARID(nid,"sens",var3didin(32))
    479          if(ierr/=NF_NOERR) then
    480            write(*,*) NF_STRERROR(ierr)
     478      ierr=nf90_inq_varid(nid,"sens",var3didin(32))
     479         if(ierr/=nf90_noerr) then
     480           write(*,*) nf90_strerror(ierr)
    481481           stop 'sens'
    482482         endif
    483483
    484       ierr=NF_INQ_VARID(nid,"flat",var3didin(33))
    485          if(ierr/=NF_NOERR) then
    486            write(*,*) NF_STRERROR(ierr)
     484      ierr=nf90_inq_varid(nid,"flat",var3didin(33))
     485         if(ierr/=nf90_noerr) then
     486           write(*,*) nf90_strerror(ierr)
    487487           stop 'flat'
    488488         endif
    489489
    490       ierr=NF_INQ_VARID(nid,"ts",var3didin(34))
    491          if(ierr/=NF_NOERR) then
    492            write(*,*) NF_STRERROR(ierr)
     490      ierr=nf90_inq_varid(nid,"ts",var3didin(34))
     491         if(ierr/=nf90_noerr) then
     492           write(*,*) nf90_strerror(ierr)
    493493           stop 'ts'
    494494         endif
    495495
    496       ierr=NF_INQ_VARID(nid,"ustar",var3didin(35))
    497          if(ierr/=NF_NOERR) then
    498            write(*,*) NF_STRERROR(ierr)
     496      ierr=nf90_inq_varid(nid,"ustar",var3didin(35))
     497         if(ierr/=nf90_noerr) then
     498           write(*,*) nf90_strerror(ierr)
    499499           stop 'ustar'
    500500         endif
    501501
    502       ierr=NF_INQ_VARID(nid,"uw",var3didin(36))
    503          if(ierr/=NF_NOERR) then
    504            write(*,*) NF_STRERROR(ierr)
     502      ierr=nf90_inq_varid(nid,"uw",var3didin(36))
     503         if(ierr/=nf90_noerr) then
     504           write(*,*) nf90_strerror(ierr)
    505505           stop 'uw'
    506506         endif
    507507
    508       ierr=NF_INQ_VARID(nid,"vw",var3didin(37))
    509          if(ierr/=NF_NOERR) then
    510            write(*,*) NF_STRERROR(ierr)
     508      ierr=nf90_inq_varid(nid,"vw",var3didin(37))
     509         if(ierr/=nf90_noerr) then
     510           write(*,*) nf90_strerror(ierr)
    511511           stop 'vw'
    512512         endif
    513513
    514       ierr=NF_INQ_VARID(nid,"q1",var3didin(38))
    515          if(ierr/=NF_NOERR) then
    516            write(*,*) NF_STRERROR(ierr)
     514      ierr=nf90_inq_varid(nid,"q1",var3didin(38))
     515         if(ierr/=nf90_noerr) then
     516           write(*,*) nf90_strerror(ierr)
    517517           stop 'q1'
    518518         endif
    519519
    520       ierr=NF_INQ_VARID(nid,"q2",var3didin(39))
    521          if(ierr/=NF_NOERR) then
    522            write(*,*) NF_STRERROR(ierr)
     520      ierr=nf90_inq_varid(nid,"q2",var3didin(39))
     521         if(ierr/=nf90_noerr) then
     522           write(*,*) nf90_strerror(ierr)
    523523           stop 'q2'
    524524         endif
    525525
    526526         ierr = nf90_get_var(nid,var3didin(1),zz)
    527          if(ierr/=NF_NOERR) then
    528             write(*,*) NF_STRERROR(ierr)
     527         if(ierr/=nf90_noerr) then
     528            write(*,*) nf90_strerror(ierr)
    529529            stop "getvarup"
    530530         endif
    … …  
    532532
    533533         ierr = nf90_get_var(nid,var3didin(2),pp)
    534          if(ierr/=NF_NOERR) then
    535             write(*,*) NF_STRERROR(ierr)
     534         if(ierr/=nf90_noerr) then
     535            write(*,*) nf90_strerror(ierr)
    536536            stop "getvarup"
    537537         endif
    … …  
    540540
    541541         ierr = nf90_get_var(nid,var3didin(3),temp)
    542          if(ierr/=NF_NOERR) then
    543             write(*,*) NF_STRERROR(ierr)
     542         if(ierr/=nf90_noerr) then
     543            write(*,*) nf90_strerror(ierr)
    544544            stop "getvarup"
    545545         endif
    … …  
    547547
    548548         ierr = nf90_get_var(nid,var3didin(4),qv)
    549          if(ierr/=NF_NOERR) then
    550             write(*,*) NF_STRERROR(ierr)
     549         if(ierr/=nf90_noerr) then
     550            write(*,*) nf90_strerror(ierr)
    551551            stop "getvarup"
    552552         endif
    … …  
    554554
    555555         ierr = nf90_get_var(nid,var3didin(5),rh)
    556          if(ierr/=NF_NOERR) then
    557             write(*,*) NF_STRERROR(ierr)
     556         if(ierr/=nf90_noerr) then
     557            write(*,*) nf90_strerror(ierr)
    558558            stop "getvarup"
    559559         endif
    … …  
    561561
    562562         ierr = nf90_get_var(nid,var3didin(6),theta)
    563          if(ierr/=NF_NOERR) then
    564             write(*,*) NF_STRERROR(ierr)
     563         if(ierr/=nf90_noerr) then
     564            write(*,*) nf90_strerror(ierr)
    565565            stop "getvarup"
    566566         endif
    … …  
    568568
    569569         ierr = nf90_get_var(nid,var3didin(7),rv)
    570          if(ierr/=NF_NOERR) then
    571             write(*,*) NF_STRERROR(ierr)
     570         if(ierr/=nf90_noerr) then
     571            write(*,*) nf90_strerror(ierr)
    572572            stop "getvarup"
    573573         endif
    … …  
    575575
    576576         ierr = nf90_get_var(nid,var3didin(8),u)
    577          if(ierr/=NF_NOERR) then
    578             write(*,*) NF_STRERROR(ierr)
     577         if(ierr/=nf90_noerr) then
     578            write(*,*) nf90_strerror(ierr)
    579579            stop "getvarup"
    580580         endif
    … …  
    582582
    583583         ierr = nf90_get_var(nid,var3didin(9),v)
    584          if(ierr/=NF_NOERR) then
    585             write(*,*) NF_STRERROR(ierr)
     584         if(ierr/=nf90_noerr) then
     585            write(*,*) nf90_strerror(ierr)
    586586            stop "getvarup"
    587587         endif
    … …  
    589589
    590590         ierr = nf90_get_var(nid,var3didin(10),ug)
    591          if(ierr/=NF_NOERR) then
    592             write(*,*) NF_STRERROR(ierr)
     591         if(ierr/=nf90_noerr) then
     592            write(*,*) nf90_strerror(ierr)
    593593            stop "getvarup"
    594594         endif
    … …  
    596596
    597597         ierr = nf90_get_var(nid,var3didin(11),vg)
    598          if(ierr/=NF_NOERR) then
    599             write(*,*) NF_STRERROR(ierr)
     598         if(ierr/=nf90_noerr) then
     599            write(*,*) nf90_strerror(ierr)
    600600            stop "getvarup"
    601601         endif
    … …  
    603603
    604604         ierr = nf90_get_var(nid,var3didin(12),w)
    605          if(ierr/=NF_NOERR) then
    606             write(*,*) NF_STRERROR(ierr)
     605         if(ierr/=nf90_noerr) then
     606            write(*,*) nf90_strerror(ierr)
    607607            stop "getvarup"
    608608         endif
    … …  
    610610
    611611         ierr = nf90_get_var(nid,var3didin(13),du)
    612          if(ierr/=NF_NOERR) then
    613             write(*,*) NF_STRERROR(ierr)
     612         if(ierr/=nf90_noerr) then
     613            write(*,*) nf90_strerror(ierr)
    614614            stop "getvarup"
    615615         endif
    … …  
    617617
    618618         ierr = nf90_get_var(nid,var3didin(14),hu)
    619          if(ierr/=NF_NOERR) then
    620             write(*,*) NF_STRERROR(ierr)
     619         if(ierr/=nf90_noerr) then
     620            write(*,*) nf90_strerror(ierr)
    621621            stop "getvarup"
    622622         endif
    … …  
    624624
    625625         ierr = nf90_get_var(nid,var3didin(15),vu)
    626          if(ierr/=NF_NOERR) then
    627             write(*,*) NF_STRERROR(ierr)
     626         if(ierr/=nf90_noerr) then
     627            write(*,*) nf90_strerror(ierr)
    628628            stop "getvarup"
    629629         endif
    … …  
    631631
    632632         ierr = nf90_get_var(nid,var3didin(16),dv)
    633          if(ierr/=NF_NOERR) then
    634             write(*,*) NF_STRERROR(ierr)
     633         if(ierr/=nf90_noerr) then
     634            write(*,*) nf90_strerror(ierr)
    635635            stop "getvarup"
    636636         endif
    … …  
    638638
    639639         ierr = nf90_get_var(nid,var3didin(17),hv)
    640          if(ierr/=NF_NOERR) then
    641             write(*,*) NF_STRERROR(ierr)
     640         if(ierr/=nf90_noerr) then
     641            write(*,*) nf90_strerror(ierr)
    642642            stop "getvarup"
    643643         endif
    … …  
    645645
    646646         ierr = nf90_get_var(nid,var3didin(18),vv)
    647          if(ierr/=NF_NOERR) then
    648             write(*,*) NF_STRERROR(ierr)
     647         if(ierr/=nf90_noerr) then
     648            write(*,*) nf90_strerror(ierr)
    649649            stop "getvarup"
    650650         endif
    … …  
    652652
    653653         ierr = nf90_get_var(nid,var3didin(19),dt)
    654          if(ierr/=NF_NOERR) then
    655             write(*,*) NF_STRERROR(ierr)
     654         if(ierr/=nf90_noerr) then
     655            write(*,*) nf90_strerror(ierr)
    656656            stop "getvarup"
    657657         endif
    … …  
    659659
    660660         ierr = nf90_get_var(nid,var3didin(20),ht)
    661          if(ierr/=NF_NOERR) then
    662             write(*,*) NF_STRERROR(ierr)
     661         if(ierr/=nf90_noerr) then
     662            write(*,*) nf90_strerror(ierr)
    663663            stop "getvarup"
    664664         endif
    … …  
    666666
    667667         ierr = nf90_get_var(nid,var3didin(21),vt)
    668          if(ierr/=NF_NOERR) then
    669             write(*,*) NF_STRERROR(ierr)
     668         if(ierr/=nf90_noerr) then
     669            write(*,*) nf90_strerror(ierr)
    670670            stop "getvarup"
    671671         endif
    … …  
    673673
    674674         ierr = nf90_get_var(nid,var3didin(22),dq)
    675          if(ierr/=NF_NOERR) then
    676             write(*,*) NF_STRERROR(ierr)
     675         if(ierr/=nf90_noerr) then
     676            write(*,*) nf90_strerror(ierr)
    677677            stop "getvarup"
    678678         endif
    … …  
    680680
    681681         ierr = nf90_get_var(nid,var3didin(23),hq)
    682          if(ierr/=NF_NOERR) then
    683             write(*,*) NF_STRERROR(ierr)
     682         if(ierr/=nf90_noerr) then
     683            write(*,*) nf90_strerror(ierr)
    684684            stop "getvarup"
    685685         endif
    … …  
    687687
    688688         ierr = nf90_get_var(nid,var3didin(24),vq)
    689          if(ierr/=NF_NOERR) then
    690             write(*,*) NF_STRERROR(ierr)
     689         if(ierr/=nf90_noerr) then
     690            write(*,*) nf90_strerror(ierr)
    691691            stop "getvarup"
    692692         endif
    … …  
    694694
    695695         ierr = nf90_get_var(nid,var3didin(25),dth)
    696          if(ierr/=NF_NOERR) then
    697             write(*,*) NF_STRERROR(ierr)
     696         if(ierr/=nf90_noerr) then
     697            write(*,*) nf90_strerror(ierr)
    698698            stop "getvarup"
    699699         endif
    … …  
    701701
    702702         ierr = nf90_get_var(nid,var3didin(26),hth)
    703          if(ierr/=NF_NOERR) then
    704             write(*,*) NF_STRERROR(ierr)
     703         if(ierr/=nf90_noerr) then
     704            write(*,*) nf90_strerror(ierr)
    705705            stop "getvarup"
    706706         endif
    … …  
    708708
    709709         ierr = nf90_get_var(nid,var3didin(27),vth)
    710          if(ierr/=NF_NOERR) then
    711             write(*,*) NF_STRERROR(ierr)
     710         if(ierr/=nf90_noerr) then
     711            write(*,*) nf90_strerror(ierr)
    712712            stop "getvarup"
    713713         endif
    … …  
    715715
    716716         ierr = nf90_get_var(nid,var3didin(28),dr)
    717          if(ierr/=NF_NOERR) then
    718             write(*,*) NF_STRERROR(ierr)
     717         if(ierr/=nf90_noerr) then
     718            write(*,*) nf90_strerror(ierr)
    719719            stop "getvarup"
    720720         endif
    … …  
    722722
    723723         ierr = nf90_get_var(nid,var3didin(29),hr)
    724          if(ierr/=NF_NOERR) then
    725             write(*,*) NF_STRERROR(ierr)
     724         if(ierr/=nf90_noerr) then
     725            write(*,*) nf90_strerror(ierr)
    726726            stop "getvarup"
    727727         endif
    … …  
    729729
    730730         ierr = nf90_get_var(nid,var3didin(30),vr)
    731          if(ierr/=NF_NOERR) then
    732             write(*,*) NF_STRERROR(ierr)
     731         if(ierr/=nf90_noerr) then
     732            write(*,*) nf90_strerror(ierr)
    733733            stop "getvarup"
    734734         endif
    … …  
    736736
    737737         ierr = nf90_get_var(nid,var3didin(31),dtrad)
    738          if(ierr/=NF_NOERR) then
    739             write(*,*) NF_STRERROR(ierr)
     738         if(ierr/=nf90_noerr) then
     739            write(*,*) nf90_strerror(ierr)
    740740            stop "getvarup"
    741741         endif
    … …  
    743743
    744744         ierr = nf90_get_var(nid,var3didin(32),sens)
    745          if(ierr/=NF_NOERR) then
    746             write(*,*) NF_STRERROR(ierr)
     745         if(ierr/=nf90_noerr) then
     746            write(*,*) nf90_strerror(ierr)
    747747            stop "getvarup"
    748748         endif
    … …  
    750750
    751751         ierr = nf90_get_var(nid,var3didin(33),flat)
    752          if(ierr/=NF_NOERR) then
    753             write(*,*) NF_STRERROR(ierr)
     752         if(ierr/=nf90_noerr) then
     753            write(*,*) nf90_strerror(ierr)
    754754            stop "getvarup"
    755755         endif
    … …  
    757757
    758758         ierr = nf90_get_var(nid,var3didin(34),ts)
    759          if(ierr/=NF_NOERR) then
    760             write(*,*) NF_STRERROR(ierr)
     759         if(ierr/=nf90_noerr) then
     760            write(*,*) nf90_strerror(ierr)
    761761            stop "getvarup"
    762762         endif
    … …  
    764764
    765765         ierr = nf90_get_var(nid,var3didin(35),ustar)
    766          if(ierr/=NF_NOERR) then
    767             write(*,*) NF_STRERROR(ierr)
     766         if(ierr/=nf90_noerr) then
     767            write(*,*) nf90_strerror(ierr)
    768768            stop "getvarup"
    769769         endif
    … …  
    771771
    772772         ierr = nf90_get_var(nid,var3didin(36),uw)
    773          if(ierr/=NF_NOERR) then
    774             write(*,*) NF_STRERROR(ierr)
     773         if(ierr/=nf90_noerr) then
     774            write(*,*) nf90_strerror(ierr)
    775775            stop "getvarup"
    776776         endif
    … …  
    778778
    779779         ierr = nf90_get_var(nid,var3didin(37),vw)
    780          if(ierr/=NF_NOERR) then
    781             write(*,*) NF_STRERROR(ierr)
     780         if(ierr/=nf90_noerr) then
     781            write(*,*) nf90_strerror(ierr)
    782782            stop "getvarup"
    783783         endif
    … …  
    785785
    786786         ierr = nf90_get_var(nid,var3didin(38),q1)
    787          if(ierr/=NF_NOERR) then
    788             write(*,*) NF_STRERROR(ierr)
     787         if(ierr/=nf90_noerr) then
     788            write(*,*) nf90_strerror(ierr)
    789789            stop "getvarup"
    790790         endif
    … …  
    792792
    793793         ierr = nf90_get_var(nid,var3didin(39),q2)
    794          if(ierr/=NF_NOERR) then
    795             write(*,*) NF_STRERROR(ierr)
     794         if(ierr/=nf90_noerr) then
     795            write(*,*) nf90_strerror(ierr)
    796796            stop "getvarup"
    797797         endif
Note: See TracChangeset for help on using the changeset viewer.