Changeset 5088 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90

Timestamp:

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

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phytracr_spl_mod.F90

@@ -4568 +4568 @@
       USE mod_grid_phy_lmdz
       USE mod_phys_lmdz_para
-      USE lmdz_netcdf, ONLY:nf_open,nf_close,nf_inq_varid,nf_nowrite,nf_noerr,nf90_get_var
+      USE netcdf, ONLY:nf90_open,nf90_close,nf90_inq_varid,nf90_nowrite,nf90_noerr,nf90_get_var
       IMPLICIT NONE
 
@@ -4587 +4587 @@
       IF (is_mpi_root .AND. is_omp_root) THEN
           !nci=NCOPN(trim(adjustl(filescaleparams)),NCNOWRIT,rcode)
-         ierr = NF_OPEN (trim(adjustl(filescaleparams)),NF_NOWRITE, nid)
-          if (ierr == NF_NOERR) THEN
+         ierr = nf90_open (trim(adjustl(filescaleparams)),nf90_nowrite, nid)
+          if (ierr == nf90_noerr) THEN
           debutread=step_sca
           countread=1
@@ -4596 +4596 @@
             varname= trim(adjustl(paramname))//aux_2s
             print *,varname
-            ierr = NF_INQ_VARID (nid,trim(adjustl(varname)), nvarid)
+            ierr = nf90_inq_varid (nid,trim(adjustl(varname)), nvarid)
             ierr = nf90_get_var (nid, nvarid, auxreal, debutread, countread)
-            IF (ierr /= NF_NOERR) THEN
+            IF (ierr /= nf90_noerr) THEN
              PRINT*, 'Pb de lecture pour modvalues'
        print *,'JE  scale_var, step_sca',trim(adjustl(varname)),step_sca
@@ -4611 +4611 @@
            enddo
 
-            ierr = NF_CLOSE(nid)
+            ierr = nf90_close(nid)
           else
            print *,'File '//trim(adjustl(filescaleparams))//' not found'