Changeset 5249 for LMDZ6/trunk/libf/phylmd/interfoce_lim.F90

Timestamp:

Oct 22, 2024, 11:35:08 AM (3 days ago)

Author:

abarral

Message:

Replace uses of cpp key NC_DOUBLE

File:

• LMDZ6/trunk/libf/phylmd/interfoce_lim.F90 (modified) (7 diffs)

LMDZ6/trunk/libf/phylmd/interfoce_lim.F90

@@ -10 +10 @@
   USE mod_phys_lmdz_para
   USE indice_sol_mod
+  USE netcdf, ONLY: nf90_get_var
   
   IMPLICIT NONE
@@ -137 +138 @@
               CALL abort_physic(modname,abort_message,1)
            ENDIF
-#ifdef NC_DOUBLE
-           ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_oce))
-#else
-           ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_oce))
-#endif
+           ierr = nf90_get_var(nid,nvarid,pct_tmp(:,is_oce),start,epais)
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Lecture echouee pour <FOCE>'
@@ -154 +151 @@
               CALL abort_physic(modname,abort_message,1)
            ENDIF
-#ifdef NC_DOUBLE
-           ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_sic))
-#else
-           ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_sic))
-#endif
+           ierr = nf90_get_var(nid,nvarid,pct_tmp(:,is_sic),start,epais)
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Lecture echouee pour <FSIC>'
@@ -171 +164 @@
               CALL abort_physic(modname,abort_message,1)
            ENDIF
-#ifdef NC_DOUBLE
-           ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_ter))
-#else
-           ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_ter))
-#endif
+           ierr = nf90_get_var(nid,nvarid,pct_tmp(:,is_ter),start,epais)
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Lecture echouee pour <FTER>'
@@ -188 +177 @@
               CALL abort_physic(modname,abort_message,1)
            ENDIF
-#ifdef NC_DOUBLE
-           ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_lic))
-#else
-           ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_lic))
-#endif
+           ierr = nf90_get_var(nid,nvarid,pct_tmp(:,is_lic),start,epais)
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Lecture echouee pour <FLIC>'
@@ -205 +190 @@
               CALL abort_physic(modname,abort_message,1)
            ENDIF
-#ifdef NC_DOUBLE
-           ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais, nat_lu)
-#else
-           ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais, nat_lu)
-#endif
+           ierr = nf90_get_var(nid,nvarid,nat_lu,start,epais)
            IF (ierr /= NF_NOERR) THEN
               abort_message = 'Lecture echouee pour <NAT>'
@@ -239 +220 @@
            CALL abort_physic(modname,abort_message,1)
         ENDIF
-#ifdef NC_DOUBLE
-        ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais, sst_lu)
-#else
-        ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais, sst_lu)
-#endif
+        ierr = nf90_get_var(nid,nvarid,sst_lu,start,epais)
         IF (ierr /= NF_NOERR) THEN
            abort_message = 'Lecture echouee pour <SST>'