Ignore:
Timestamp:
Jul 20, 2024, 4:30:31 PM (2 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

Location:
LMDZ6/branches/Amaury_dev/libf/dyn3d
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/dynetat0.F90

    r5075 r5088  
    88  USE infotrac,    ONLY: nqtot, tracers, niso, iqIsoPha, iH2O, isoName
    99  USE strings_mod, ONLY: maxlen, msg, strStack, real2str, int2str
    10   USE lmdz_netcdf,      ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_INQ_VARID, &
     10  USE netcdf,      ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_INQ_VARID, &
    1111                         NF90_CLOSE, NF90_GET_VAR, NF90_NoErr
    1212  USE readTracFiles_mod, ONLY: new2oldH2O, newHNO3, oldHNO3, getKey

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/dynredem.F90

    r5075 r5088  
    99  USE strings_mod, ONLY: maxlen
    1010  USE infotrac, ONLY: nqtot, tracers
    11   USE lmdz_netcdf, ONLY: NF90_CREATE, NF90_DEF_DIM, NF90_INQ_VARID, NF90_GLOBAL,    &
     11  USE netcdf, ONLY: NF90_CREATE, NF90_DEF_DIM, NF90_INQ_VARID, NF90_GLOBAL,    &
    1212                    NF90_CLOSE,  NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER,   &
    1313                    NF90_64BIT_OFFSET
    … …  
    169169  USE infotrac, ONLY: nqtot, tracers, type_trac
    170170  USE control_mod
    171   USE lmdz_netcdf,   ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_GET_VAR, NF90_INQ_VARID,  &
     171  USE netcdf,   ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_GET_VAR, NF90_INQ_VARID,  &
    172172                      NF90_CLOSE, NF90_WRITE,   NF90_PUT_VAR, NF90_NoErr
    173173  USE dynredem_mod, ONLY: dynredem_write_u, dynredem_write_v, dynredem_read_u, &

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/dynredem_mod.F90

    r5075 r5088  
    11MODULE dynredem_mod
    22
    3   USE lmdz_netcdf, ONLY: nf90_strerror,nf90_noerr,nf90_redef,nf90_put_var,nf90_enddef,nf90_put_att,&
    4           nf90_inq_varid,nf90_get_var,nf90_format,nf90_def_var
     3  USE netcdf, ONLY: nf90_strerror,nf90_noerr,nf90_redef,nf90_put_var,nf90_enddef,nf90_put_att,&
     4          nf90_inq_varid,nf90_get_var,nf90_def_var
     5  USE lmdz_netcdf_format, ONLY: nf90_format
    56  IMPLICIT NONE; PRIVATE
    67  PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err
    … …  
    9596  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: units
    9697!===============================================================================
    97   CALL err(NF90_DEF_VAR(ncid,var,NF90_FORMAT,did,nvarid),"inq",var)
     98  CALL err(NF90_DEF_VAR(ncid,var,nf90_format,did,nvarid),"inq",var)
    9899  IF(title/="")      CALL err(NF90_PUT_ATT(ncid,nvarid,"title",title),var)
    99100  IF(PRESENT(units)) CALL err(NF90_PUT_ATT(ncid,nvarid,"units",units),var)

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/guide_mod.F90

    r5075 r5088  
    1111  USE getparam, ONLY: ini_getparam, fin_getparam, getpar
    1212  USE Write_Field
    13   USE lmdz_netcdf, ONLY: nf90_nowrite, nf90_open, nf90_inq_varid, nf90_close, &
     13  USE netcdf, ONLY: nf90_nowrite, nf90_open, nf90_inq_varid, nf90_close, &
    1414          nf90_inq_dimid, nf90_inquire_dimension, nf90_float, nf90_def_var, &
    15           nf_create, nf_def_dim, nf_open, nf_unlimited, nf_write, nf_enddef, nf_redef, &
    16           nf_close, nf_inq_varid, nf90_get_var, nf90_noerr, nf_clobber, &
    17           nf_64bit_offset, nf_inq_dimid, nf_inq_dimlen, nf90_put_var
     15          nf90_create, nf90_def_dim, nf90_open, nf90_unlimited, nf90_write, nf90_enddef, nf90_redef, &
     16          nf90_close, nf90_inq_varid, nf90_get_var, nf90_noerr, nf90_clobber, &
     17          nf90_64bit_offset, nf90_inq_dimid, nf90_inquire_dimension, nf90_put_var
    1818  USE pres2lev_mod, ONLY: pres2lev
    1919
    … …  
    7272  SUBROUTINE guide_init
    7373
    74     use lmdz_netcdf, only: nf90_noerr
     74    use netcdf, only: nf90_noerr
    7575    USE control_mod, ONLY: day_step
    7676    USE serre_mod, ONLY: grossismx
    … …  
    226226
    227227    endif
    228     error=NF_INQ_DIMID(ncidpl,'LEVEL',rid)
    229     IF (error/=NF90_NOERR) error=NF_INQ_DIMID(ncidpl,'PRESSURE',rid)
     228    error=nf90_inq_dimid(ncidpl,'LEVEL',rid)
     229    IF (error/=NF90_NOERR) error=nf90_inq_dimid(ncidpl,'PRESSURE',rid)
    230230    IF (error/=NF90_NOERR) THEN
    231231        CALL abort_gcm(modname,'Nudging: error reading pressure levels',1)
    232232    ENDIF
    233     error=NF_INQ_DIMLEN(ncidpl,rid,nlevnc)
     233    error=nf90_inquire_dimension(ncidpl,rid,len=nlevnc)
    234234    write(*,*)trim(modname)//' : number of vertical levels nlevnc', nlevnc
    235235    rcod = nf90_close(ncidpl)
    … …  
    11681168             if (ncidpl==-99) ncidpl=ncidu
    11691169
    1170              status=NF90_INQ_DIMID(ncidu, "LONU", dimid)
     1170             status=nf90_inq_dimid(ncidu, "LONU", dimid)
    11711171             status=NF90_INQUIRE_DIMENSION(ncidu,dimid,namedim,lendim)
    11721172             IF (lendim /= iip1) THEN
    … …  
    11751175             ENDIF
    11761176
    1177              status=NF90_INQ_DIMID(ncidu, "LATU", dimid)
     1177             status=nf90_inq_dimid(ncidu, "LATU", dimid)
    11781178             status=NF90_INQUIRE_DIMENSION(ncidu,dimid,namedim,lendim)
    11791179             IF (lendim /= jjp1) THEN
    … …  
    11991199             if (ncidpl==-99) ncidpl=ncidv
    12001200             
    1201              status=NF90_INQ_DIMID(ncidv, "LONV", dimid)
     1201             status=nf90_inq_dimid(ncidv, "LONV", dimid)
    12021202             status=NF90_INQUIRE_DIMENSION(ncidv,dimid,namedim,lendim)
    12031203             
    … …  
    12081208
    12091209
    1210              status=NF90_INQ_DIMID(ncidv, "LATV", dimid)
     1210             status=nf90_inq_dimid(ncidv, "LATV", dimid)
    12111211             status=NF90_INQUIRE_DIMENSION(ncidv,dimid,namedim,lendim)
    12121212             IF (lendim /= jjm) THEN
    … …  
    12321232             if (ncidpl==-99) ncidpl=ncidt
    12331233
    1234              status=NF90_INQ_DIMID(ncidt, "LONV", dimid)
     1234             status=nf90_inq_dimid(ncidt, "LONV", dimid)
    12351235             status=NF90_INQUIRE_DIMENSION(ncidt,dimid,namedim,lendim)
    12361236             IF (lendim /= iip1) THEN
    … …  
    12391239             ENDIF
    12401240
    1241              status=NF90_INQ_DIMID(ncidt, "LATU", dimid)
     1241             status=nf90_inq_dimid(ncidt, "LATU", dimid)
    12421242             status=NF90_INQUIRE_DIMENSION(ncidt,dimid,namedim,lendim)
    12431243             IF (lendim /= jjp1) THEN
    … …  
    12631263             if (ncidpl==-99) ncidpl=ncidQ
    12641264
    1265              status=NF90_INQ_DIMID(ncidQ, "LONV", dimid)
     1265             status=nf90_inq_dimid(ncidQ, "LONV", dimid)
    12661266             status=NF90_INQUIRE_DIMENSION(ncidQ,dimid,namedim,lendim)
    12671267             IF (lendim /= iip1) THEN
    … …  
    12701270             ENDIF
    12711271
    1272              status=NF90_INQ_DIMID(ncidQ, "LATU", dimid)
     1272             status=nf90_inq_dimid(ncidQ, "LATU", dimid)
    12731273             status=NF90_INQUIRE_DIMENSION(ncidQ,dimid,namedim,lendim)
    12741274             IF (lendim /= jjp1) THEN
    … …  
    16801680! ----------------------------------------------
    16811681! Ouverture du fichier
    1682         ierr=NF_CREATE("guide_ins.nc",IOR(NF_CLOBBER,NF_64BIT_OFFSET),nid)
     1682        ierr=nf90_create("guide_ins.nc",IOR(nf90_clobber,nf90_64bit_offset),nid)
    16831683! Definition des dimensions
    1684         ierr=NF_DEF_DIM(nid,"LONU",iip1,id_lonu)
    1685         ierr=NF_DEF_DIM(nid,"LONV",iip1,id_lonv)
    1686         ierr=NF_DEF_DIM(nid,"LATU",jjp1,id_latu)
    1687         ierr=NF_DEF_DIM(nid,"LATV",jjm,id_latv)
    1688         ierr=NF_DEF_DIM(nid,"LEVEL",llm,id_lev)
    1689         ierr=NF_DEF_DIM(nid,"TIME",NF_UNLIMITED,id_tim)
     1684        ierr=nf90_def_dim(nid,"LONU",iip1,id_lonu)
     1685        ierr=nf90_def_dim(nid,"LONV",iip1,id_lonv)
     1686        ierr=nf90_def_dim(nid,"LATU",jjp1,id_latu)
     1687        ierr=nf90_def_dim(nid,"LATV",jjm,id_latv)
     1688        ierr=nf90_def_dim(nid,"LEVEL",llm,id_lev)
     1689        ierr=nf90_def_dim(nid,"TIME",nf90_unlimited,id_tim)
    16901690
    16911691! Creation des variables dimensions
    … …  
    17041704             varid_alpha_q)
    17051705       
    1706         ierr=NF_ENDDEF(nid)
     1706        ierr=nf90_enddef(nid)
    17071707
    17081708! Enregistrement des variables dimensions
    … …  
    17211721! Cr�ation des variables sauvegard�es
    17221722! --------------------------------------------------------------------
    1723         ierr = NF_REDEF(nid)
     1723        ierr = nf90_redef(nid)
    17241724! Pressure (GCM)
    17251725        dim4=(/id_lonv,id_latu,id_lev,id_tim/)
    … …  
    17551755        ENDIF
    17561756       
    1757         ierr = NF_ENDDEF(nid)
    1758         ierr = NF_CLOSE(nid)
     1757        ierr = nf90_enddef(nid)
     1758        ierr = nf90_close(nid)
    17591759    ENDIF ! timestep=0
    17601760
    … …  
    17621762! Enregistrement du champ
    17631763! --------------------------------------------------------------------
    1764     ierr=NF_OPEN("guide_ins.nc",NF_WRITE,nid)
     1764    ierr=nf90_open("guide_ins.nc",nf90_write,nid)
    17651765
    17661766    IF (varname=="SP") timestep=timestep+1
    17671767
    1768     ierr = NF_INQ_VARID(nid,varname,varid)
     1768    ierr = nf90_inq_varid(nid,varname,varid)
    17691769    SELECT CASE (varname)
    17701770    CASE ("SP","ps")
    … …  
    17901790
    17911791    ierr = nf90_put_var(nid,varid,field2,start,count)
    1792     ierr = NF_CLOSE(nid)
     1792    ierr = nf90_close(nid)
    17931793
    17941794  END SUBROUTINE guide_out

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/iniacademic.F90

    r5075 r5088  
    2222  USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
    2323  USE readTracFiles_mod, ONLY: addPhase
    24   use lmdz_netcdf, only : NF90_NOWRITE,NF90_OPEN,NF90_NOERR,NF90_INQ_VARID,NF90_CLOSE,NF90_GET_VAR
     24  use netcdf, only : NF90_NOWRITE,NF90_OPEN,NF90_NOERR,NF90_INQ_VARID,NF90_CLOSE,NF90_GET_VAR
    2525
    2626  !   Author:    Frederic Hourdin      original: 15/01/93
Note: See TracChangeset for help on using the changeset viewer.