Changeset 4255 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Sep 20, 2022, 4:09:49 PM (2 years ago)
Author:
lguez
Message:

Replace nf_noerr by nf90_noerr

We want to remove include netcdf.inc, eventually.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/guide_mod.F90

    r4254 r4255  
    6969  SUBROUTINE guide_init
    7070
     71    use netcdf, only: nf90_noerr
    7172    USE control_mod, ONLY: day_step
    7273    USE serre_mod, ONLY: grossismx
    … …  
    173174       if (ncidpl.eq.-99) then
    174175          rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
    175           if (rcod.NE.NF_NOERR) THEN
     176          if (rcod.NE.NF90_NOERR) THEN
    176177             abort_message=' Nudging error -> no file apbp.nc'
    177178             CALL abort_gcm(modname,abort_message,1)
    … …  
    181182       if (ncidpl.EQ.-99) then
    182183          rcod=nf90_open('P.nc',Nf90_NOWRITe,ncidpl)
    183           if (rcod.NE.NF_NOERR) THEN
     184          if (rcod.NE.NF90_NOERR) THEN
    184185             abort_message=' Nudging error -> no file P.nc'
    185186             CALL abort_gcm(modname,abort_message,1)
    … …  
    190191           if (ncidpl.eq.-99) then
    191192               rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
    192                if (rcod.NE.NF_NOERR) THEN
     193               if (rcod.NE.NF90_NOERR) THEN
    193194                  CALL abort_gcm(modname, &
    194195                       ' Nudging error -> no file u.nc',1)
    … …  
    199200           if (ncidpl.eq.-99) then
    200201               rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
    201                if (rcod.NE.NF_NOERR) THEN
     202               if (rcod.NE.NF90_NOERR) THEN
    202203                  CALL abort_gcm(modname, &
    203204                       ' Nudging error -> no file v.nc',1)
    … …  
    207208           if (ncidpl.eq.-99) then
    208209               rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
    209                if (rcod.NE.NF_NOERR) THEN
     210               if (rcod.NE.NF90_NOERR) THEN
    210211                  CALL abort_gcm(modname, &
    211212                       ' Nudging error -> no file T.nc',1)
    … …  
    215216           if (ncidpl.eq.-99) then
    216217               rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
    217                if (rcod.NE.NF_NOERR) THEN
     218               if (rcod.NE.NF90_NOERR) THEN
    218219                  CALL abort_gcm(modname, &
    219220                       ' Nudging error -> no file hur.nc',1)
    … …  
    224225    endif
    225226    error=NF_INQ_DIMID(ncidpl,'LEVEL',rid)
    226     IF (error.NE.NF_NOERR) error=NF_INQ_DIMID(ncidpl,'PRESSURE',rid)
    227     IF (error.NE.NF_NOERR) THEN
     227    IF (error.NE.NF90_NOERR) error=NF_INQ_DIMID(ncidpl,'PRESSURE',rid)
     228    IF (error.NE.NF90_NOERR) THEN
    228229        CALL abort_gcm(modname,'Nudging: error reading pressure levels',1)
    229230    ENDIF
    … …  
    10821083  SUBROUTINE guide_read(timestep)
    10831084
    1084     use netcdf, only: NF90_GET_VAR
     1085    use netcdf, only: NF90_GET_VAR, nf90_noerr
    10851086
    10861087    IMPLICIT NONE
    … …  
    11141115             write(*,*) trim(modname)//' Reading nudging on model levels'
    11151116             rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
    1116              IF (rcode.NE.NF_NOERR) THEN
     1117             IF (rcode.NE.NF90_NOERR) THEN
    11171118              abort_message='Nudging: error -> no file apbp.nc'
    11181119              CALL abort_gcm(modname,abort_message,1)
    11191120             ENDIF
    11201121             rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
    1121              IF (rcode.NE.NF_NOERR) THEN
     1122             IF (rcode.NE.NF90_NOERR) THEN
    11221123              abort_message='Nudging: error -> no AP variable in file apbp.nc'
    11231124              CALL abort_gcm(modname,abort_message,1)
    11241125             ENDIF
    11251126             rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
    1126              IF (rcode.NE.NF_NOERR) THEN
     1127             IF (rcode.NE.NF90_NOERR) THEN
    11271128              abort_message='Nudging: error -> no BP variable in file apbp.nc'
    11281129              CALL abort_gcm(modname,abort_message,1)
    … …  
    11341135         if (guide_plevs.EQ.2) then
    11351136             rcode = nf90_open('P.nc', nf90_nowrite, ncidp)
    1136              IF (rcode.NE.NF_NOERR) THEN
     1137             IF (rcode.NE.NF90_NOERR) THEN
    11371138              abort_message='Nudging: error -> no file P.nc'
    11381139              CALL abort_gcm(modname,abort_message,1)
    11391140             ENDIF
    11401141             rcode = nf90_inq_varid(ncidp, 'PRES', varidp)
    1141              IF (rcode.NE.NF_NOERR) THEN
     1142             IF (rcode.NE.NF90_NOERR) THEN
    11421143              abort_message='Nudging: error -> no PRES variable in file P.nc'
    11431144              CALL abort_gcm(modname,abort_message,1)
    … …  
    11501151         if (guide_u) then
    11511152             rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
    1152              IF (rcode.NE.NF_NOERR) THEN
     1153             IF (rcode.NE.NF90_NOERR) THEN
    11531154              abort_message='Nudging: error -> no file u.nc'
    11541155              CALL abort_gcm(modname,abort_message,1)
    11551156             ENDIF
    11561157             rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
    1157              IF (rcode.NE.NF_NOERR) THEN
     1158             IF (rcode.NE.NF90_NOERR) THEN
    11581159              abort_message='Nudging: error -> no UWND variable in file u.nc'
    11591160              CALL abort_gcm(modname,abort_message,1)
    … …  
    11811182         if (guide_v) then
    11821183             rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
    1183              IF (rcode.NE.NF_NOERR) THEN
     1184             IF (rcode.NE.NF90_NOERR) THEN
    11841185              abort_message='Nudging: error -> no file v.nc'
    11851186              CALL abort_gcm(modname,abort_message,1)
    11861187             ENDIF
    11871188             rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
    1188              IF (rcode.NE.NF_NOERR) THEN
     1189             IF (rcode.NE.NF90_NOERR) THEN
    11891190              abort_message='Nudging: error -> no VWND variable in file v.nc'
    11901191              CALL abort_gcm(modname,abort_message,1)
    … …  
    12141215         if (guide_T) then
    12151216             rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
    1216              IF (rcode.NE.NF_NOERR) THEN
     1217             IF (rcode.NE.NF90_NOERR) THEN
    12171218              abort_message='Nudging: error -> no file T.nc'
    12181219              CALL abort_gcm(modname,abort_message,1)
    12191220             ENDIF
    12201221             rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
    1221              IF (rcode.NE.NF_NOERR) THEN
     1222             IF (rcode.NE.NF90_NOERR) THEN
    12221223              abort_message='Nudging: error -> no AIR variable in file T.nc'
    12231224              CALL abort_gcm(modname,abort_message,1)
    … …  
    12451246         if (guide_Q) then
    12461247             rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
    1247              IF (rcode.NE.NF_NOERR) THEN
     1248             IF (rcode.NE.NF90_NOERR) THEN
    12481249              abort_message='Nudging: error -> no file hur.nc'
    12491250              CALL abort_gcm(modname,abort_message,1)
    12501251             ENDIF
    12511252             rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
    1252              IF (rcode.NE.NF_NOERR) THEN
     1253             IF (rcode.NE.NF90_NOERR) THEN
    12531254              abort_message='Nudging: error -> no RH variable in file hur.nc'
    12541255              CALL abort_gcm(modname,abort_message,1)
    … …  
    12761277         if ((guide_P).OR.(guide_modele)) then
    12771278             rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
    1278              IF (rcode.NE.NF_NOERR) THEN
     1279             IF (rcode.NE.NF90_NOERR) THEN
    12791280              abort_message='Nudging: error -> no file ps.nc'
    12801281              CALL abort_gcm(modname,abort_message,1)
    12811282             ENDIF
    12821283             rcode = nf90_inq_varid(ncidps, 'SP', varidps)
    1283              IF (rcode.NE.NF_NOERR) THEN
     1284             IF (rcode.NE.NF90_NOERR) THEN
    12841285              abort_message='Nudging: error -> no SP variable in file ps.nc'
    12851286              CALL abort_gcm(modname,abort_message,1)
    … …  
    13831384  SUBROUTINE guide_read2D(timestep)
    13841385
    1385     use netcdf, only: nf90_get_var
     1386    use netcdf, only: nf90_get_var, nf90_noerr
    13861387
    13871388    IMPLICIT NONE
    … …  
    14181419           write(*,*)trim(modname)//' Reading nudging on model levels'
    14191420           rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
    1420            IF (rcode.NE.NF_NOERR) THEN
     1421           IF (rcode.NE.NF90_NOERR) THEN
    14211422             abort_message='Nudging: error -> no file apbp.nc'
    14221423           CALL abort_gcm(modname,abort_message,1)
    14231424           ENDIF
    14241425           rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
    1425            IF (rcode.NE.NF_NOERR) THEN
     1426           IF (rcode.NE.NF90_NOERR) THEN
    14261427             abort_message='Nudging: error -> no AP variable in file apbp.nc'
    14271428           CALL abort_gcm(modname,abort_message,1)
    14281429           ENDIF
    14291430           rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
    1430            IF (rcode.NE.NF_NOERR) THEN
     1431           IF (rcode.NE.NF90_NOERR) THEN
    14311432             abort_message='Nudging: error -> no BP variable in file apbp.nc'
    14321433             CALL abort_gcm(modname,abort_message,1)
    … …  
    14371438         if (guide_plevs.EQ.2) then
    14381439           rcode = nf90_open('P.nc', nf90_nowrite, ncidp)
    1439            IF (rcode.NE.NF_NOERR) THEN
     1440           IF (rcode.NE.NF90_NOERR) THEN
    14401441             abort_message='Nudging: error -> no file P.nc'
    14411442             CALL abort_gcm(modname,abort_message,1)
    14421443           ENDIF
    14431444           rcode = nf90_inq_varid(ncidp, 'PRES', varidp)
    1444            IF (rcode.NE.NF_NOERR) THEN
     1445           IF (rcode.NE.NF90_NOERR) THEN
    14451446             abort_message='Nudging: error -> no PRES variable in file P.nc'
    14461447             CALL abort_gcm(modname,abort_message,1)
    … …  
    14521453         if (guide_u) then
    14531454           rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
    1454            IF (rcode.NE.NF_NOERR) THEN
     1455           IF (rcode.NE.NF90_NOERR) THEN
    14551456             abort_message='Nudging: error -> no file u.nc'
    14561457             CALL abort_gcm(modname,abort_message,1)
    14571458           ENDIF
    14581459           rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
    1459            IF (rcode.NE.NF_NOERR) THEN
     1460           IF (rcode.NE.NF90_NOERR) THEN
    14601461             abort_message='Nudging: error -> no UWND variable in file u.nc'
    14611462             CALL abort_gcm(modname,abort_message,1)
    … …  
    14671468         if (guide_v) then
    14681469           rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
    1469            IF (rcode.NE.NF_NOERR) THEN
     1470           IF (rcode.NE.NF90_NOERR) THEN
    14701471             abort_message='Nudging: error -> no file v.nc'
    14711472             CALL abort_gcm(modname,abort_message,1)
    14721473           ENDIF
    14731474           rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
    1474            IF (rcode.NE.NF_NOERR) THEN
     1475           IF (rcode.NE.NF90_NOERR) THEN
    14751476             abort_message='Nudging: error -> no VWND variable in file v.nc'
    14761477             CALL abort_gcm(modname,abort_message,1)
    … …  
    14821483         if (guide_T) then
    14831484           rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
    1484            IF (rcode.NE.NF_NOERR) THEN
     1485           IF (rcode.NE.NF90_NOERR) THEN
    14851486             abort_message='Nudging: error -> no file T.nc'
    14861487             CALL abort_gcm(modname,abort_message,1)
    14871488           ENDIF
    14881489           rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
    1489            IF (rcode.NE.NF_NOERR) THEN
     1490           IF (rcode.NE.NF90_NOERR) THEN
    14901491             abort_message='Nudging: error -> no AIR variable in file T.nc'
    14911492             CALL abort_gcm(modname,abort_message,1)
    … …  
    14971498         if (guide_Q) then
    14981499           rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
    1499            IF (rcode.NE.NF_NOERR) THEN
     1500           IF (rcode.NE.NF90_NOERR) THEN
    15001501             abort_message='Nudging: error -> no file hur.nc'
    15011502             CALL abort_gcm(modname,abort_message,1)
    15021503           ENDIF
    15031504           rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
    1504            IF (rcode.NE.NF_NOERR) THEN
     1505           IF (rcode.NE.NF90_NOERR) THEN
    15051506             abort_message='Nudging: error -> no RH,variable in file hur.nc'
    15061507             CALL abort_gcm(modname,abort_message,1)
    … …  
    15121513         if ((guide_P).OR.(guide_modele)) then
    15131514           rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
    1514            IF (rcode.NE.NF_NOERR) THEN
     1515           IF (rcode.NE.NF90_NOERR) THEN
    15151516             abort_message='Nudging: error -> no file ps.nc'
    15161517             CALL abort_gcm(modname,abort_message,1)
    15171518           ENDIF
    15181519           rcode = nf90_inq_varid(ncidps, 'SP', varidps)
    1519            IF (rcode.NE.NF_NOERR) THEN
     1520           IF (rcode.NE.NF90_NOERR) THEN
    15201521             abort_message='Nudging: error -> no SP variable in file ps.nc'
    15211522             CALL abort_gcm(modname,abort_message,1)
Note: See TracChangeset for help on using the changeset viewer.