Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/read_map2D.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/read_map2D.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/read_map2D.F90

@@ -31 +31 @@
   IF (is_mpi_root .AND. is_omp_root) THEN
      ierr = NF90_OPEN(trim(filename), NF90_NOWRITE, nid)
-     IF (ierr /= NF90_NOERR) CALL write_err_mess('Problem in opening file')
+     IF (ierr /= nf90_noerr) CALL write_err_mess('Problem in opening file')
 
      ierr = NF90_INQ_VARID(nid, trim(varname), nvarid)
-     IF (ierr /= NF90_NOERR) CALL write_err_mess('The variable is absent in file')
+     IF (ierr /= nf90_noerr) CALL write_err_mess('The variable is absent in file')
      
      start=(/1,1,timestep/)
      count=(/nbp_lon,nbp_lat,1/)
-     ierr = NF90_GET_VAR(nid, nvarid, var_glo2D,start,count)
-     IF (ierr /= NF90_NOERR) CALL write_err_mess('Problem in reading varaiable')
+     ierr = nf90_get_var(nid, nvarid, var_glo2D,start,count)
+     IF (ierr /= nf90_noerr) CALL write_err_mess('Problem in reading varaiable')
 
      ierr = NF90_CLOSE(nid)
-     IF (ierr /= NF90_NOERR) CALL write_err_mess('Problem in closing file')
+     IF (ierr /= nf90_noerr) CALL write_err_mess('Problem in closing file')
 
      ! Inverse latitude order