Changeset 5100 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/limit_read_mod.F90

Timestamp:

Jul 23, 2024, 7:00:20 AM (3 months ago)

Author:

abarral

Message:

Remove CPP_1D key. It was used once in a single file to wrap a whole internal module -> can't even compile if key is enabled.
(lint) Set NF90_* to lowercase

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/limit_read_mod.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/limit_read_mod.F90

@@ -352 +352 @@
 !$OMP MASTER  ! Only master thread
        IF (is_mpi_root) THEN ! Only master processus
-          ierr = NF90_OPEN ('limit.nc', NF90_NOWRITE, nid)
+          ierr = nf90_open ('limit.nc', nf90_nowrite, nid)
           IF (ierr /= nf90_noerr) CALL abort_physic(modname,&
                'Pb d''ouverture du fichier de conditions aux limites',1)
@@ -358 +358 @@
           !--- WARNING IF CALENDAR IS KNOWN AND DOES NOT MATCH THE ONE OF LMDZ
           ierr=NF90_INQ_VARID(nid, 'TEMPS', nvarid)
-          ierr=NF90_GET_ATT(nid, nvarid, 'calendar', calendar)
+          ierr=nf90_get_att(nid, nvarid, 'calendar', calendar)
           IF(ierr==nf90_noerr.AND.calendar/=calend.AND.prt_level>=1) THEN
              WRITE(lunout,*)'BEWARE: gcm and limit.nc calendars differ: '
@@ -387 +387 @@
           IF(nn/=klon_glo) CALL abort_physic(modname,abort_message,1)
 
-          ierr = NF90_CLOSE(nid)
+          ierr = nf90_close(nid)
           IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Pb when closing file', 1)
        END IF ! is_mpi_root
@@ -450 +450 @@
        IF (is_mpi_root) THEN ! Only master processus!
 
-          ierr = NF90_OPEN ('limit.nc', NF90_NOWRITE, nid)
+          ierr = nf90_open ('limit.nc', nf90_nowrite, nid)
           IF (ierr /= nf90_noerr) CALL abort_physic(modname,&
                'Pb d''ouverture du fichier de conditions aux limites',1)
@@ -564 +564 @@
 
 !****************************************************************************************
-          ierr = NF90_CLOSE(nid)
+          ierr = nf90_close(nid)
           IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Pb when closing file', 1)
        ENDIF ! is_mpi_root