Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/guide_loc_mod.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/dyn3dmem/guide_loc_mod.F90 (modified) (8 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/guide_loc_mod.F90

@@ -1653 +1653 @@
     
              status=nf90_inq_dimid(ncidu, "LONU", dimid)
-             status=NF90_INQUIRE_DIMENSION(ncidu,dimid,namedim,lendim)
+             status=nf90_inquire_dimension(ncidu,dimid,namedim,lendim)
              IF (lendim /= iip1) THEN
                 abort_message='dimension LONU different from iip1 in u.nc'
@@ -1660 +1660 @@
 
              status=nf90_inq_dimid(ncidu, "LATU", dimid)
-             status=NF90_INQUIRE_DIMENSION(ncidu,dimid,namedim,lendim)
+             status=nf90_inquire_dimension(ncidu,dimid,namedim,lendim)
              IF (lendim /= jjp1) THEN
                 abort_message='dimension LATU different from jjp1 in u.nc'
@@ -1684 +1684 @@
              
              status=nf90_inq_dimid(ncidv, "LONV", dimid)
-             status=NF90_INQUIRE_DIMENSION(ncidv,dimid,namedim,lendim)
+             status=nf90_inquire_dimension(ncidv,dimid,namedim,lendim)
              
                 IF (lendim /= iip1) THEN
@@ -1693 +1693 @@
 
              status=nf90_inq_dimid(ncidv, "LATV", dimid)
-             status=NF90_INQUIRE_DIMENSION(ncidv,dimid,namedim,lendim)
+             status=nf90_inquire_dimension(ncidv,dimid,namedim,lendim)
              IF (lendim /= jjm) THEN
                 abort_message='dimension LATV different from jjm in v.nc'
@@ -1717 +1717 @@
 
              status=nf90_inq_dimid(ncidt, "LONV", dimid)
-             status=NF90_INQUIRE_DIMENSION(ncidt,dimid,namedim,lendim)
+             status=nf90_inquire_dimension(ncidt,dimid,namedim,lendim)
              IF (lendim /= iip1) THEN
                 abort_message='dimension LONV different from iip1 in T.nc'
@@ -1724 +1724 @@
 
              status=nf90_inq_dimid(ncidt, "LATU", dimid)
-             status=NF90_INQUIRE_DIMENSION(ncidt,dimid,namedim,lendim)
+             status=nf90_inquire_dimension(ncidt,dimid,namedim,lendim)
              IF (lendim /= jjp1) THEN
                 abort_message='dimension LATU different from jjp1 in T.nc'
@@ -1749 +1749 @@
 
              status=nf90_inq_dimid(ncidQ, "LONV", dimid)
-             status=NF90_INQUIRE_DIMENSION(ncidQ,dimid,namedim,lendim)
+             status=nf90_inquire_dimension(ncidQ,dimid,namedim,lendim)
              IF (lendim /= iip1) THEN
                 abort_message='dimension LONV different from iip1 in hur.nc'
@@ -1756 +1756 @@
 
              status=nf90_inq_dimid(ncidQ, "LATU", dimid)
-             status=NF90_INQUIRE_DIMENSION(ncidQ,dimid,namedim,lendim)
+             status=nf90_inquire_dimension(ncidQ,dimid,namedim,lendim)
              IF (lendim /= jjp1) THEN
                 abort_message='dimension LATU different from jjp1 in hur.nc'