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

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_surface.F90 (modified) (3 diffs)

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

@@ -10 +10 @@
        USE mod_phys_lmdz_para
        USE iophy
-       USE lmdz_netcdf, ONLY:nf_inq_varid,nf_noerr,nf90_get_var
+       USE netcdf, ONLY:nf90_inq_varid,nf90_noerr,nf90_get_var
        IMPLICIT NONE
 
@@ -61 +61 @@
        if (i==4) aux4s='Latu'
        if (i==5) aux4s='latU'
-       status = NF_INQ_VARID (ncid, aux4s, rcode)
+       status = nf90_inq_varid (ncid, aux4s, rcode)
 !       print *,'stat,i',status,i,outcycle,aux4s
-!       print *,'ifclause',status.NE. NF_NOERR ,outcycle == .false.
-       IF ((.not.(status/= NF_NOERR) ).and.( .not. outcycle )) THEN
+!       print *,'ifclause',status.NE. nf90_noerr ,outcycle == .false.
+       IF ((.not.(status/= nf90_noerr) ).and.( .not. outcycle )) THEN
          outcycle=.true.
          latstr=aux4s
@@ -76 +76 @@
           status=nf90_get_var(ncid,varid,lats_glo,startj,endj)
 !      print *,latstr,varid,status,jjp1,rcode
-!      IF (status .NE. NF_NOERR) print*,'NOOOOOOO'
+!      IF (status .NE. nf90_noerr) print*,'NOOOOOOO'
 !      print *,lats
 !stop