Changeset 2572 for trunk/LMDZ.COMMON/libf/dyn3d

Timestamp:

Oct 25, 2021, 9:57:46 AM (3 years ago)

Author:

emillour

Message:

Common dynamics:
Fixes for the picky gfortran10 compiler which identifies using a scalar
instead of a one-element array as an error.
MW+EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d/guide_mod.F90 (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/guide_mod.F90

@@ -1150 +1150 @@
          if (guide_modele) then
 #ifdef NC_DOUBLE
-             status=NF_GET_VARA_DOUBLE(ncidpl,varidap,1,nlevnc,apnc)
-             status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,1,nlevnc,bpnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidap,[1],[nlevnc],apnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,[1],[nlevnc],bpnc)
 #else
-             status=NF_GET_VARA_REAL(ncidpl,varidap,1,nlevnc,apnc)
-             status=NF_GET_VARA_REAL(ncidpl,varidbp,1,nlevnc,bpnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidap,[1],[nlevnc],apnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidbp,[1],[nlevnc],bpnc)
 #endif
          else
 #ifdef NC_DOUBLE
-             status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,1,nlevnc,apnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,[1],[nlevnc],apnc)
 #else
-             status=NF_GET_VARA_REAL(ncidpl,varidpl,1,nlevnc,apnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidpl,[1],[nlevnc],apnc)
 #endif
              apnc=apnc*100.! conversion en Pascals
@@ -1387 +1387 @@
          if (guide_modele) then
 #ifdef NC_DOUBLE
-             status=NF_GET_VARA_DOUBLE(ncidpl,varidap,1,nlevnc,apnc)
-             status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,1,nlevnc,bpnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidap,[1],[nlevnc],apnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,[1],[nlevnc],bpnc)
 #else
-             status=NF_GET_VARA_REAL(ncidpl,varidap,1,nlevnc,apnc)
-             status=NF_GET_VARA_REAL(ncidpl,varidbp,1,nlevnc,bpnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidap,[1],[nlevnc],apnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidbp,[1],[nlevnc],bpnc)
 #endif
          else
 #ifdef NC_DOUBLE
-             status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,1,nlevnc,apnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,[1],[nlevnc],apnc)
 #else
-             status=NF_GET_VARA_REAL(ncidpl,varidpl,1,nlevnc,apnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidpl,[1],[nlevnc],apnc)
 #endif
              apnc=apnc*100.! conversion en Pascals
@@ -1560 +1560 @@
 
 ! Creation des variables dimensions
-        ierr=NF_DEF_VAR(nid,"LONU",NF_FLOAT,1,id_lonu,vid_lonu)
-        ierr=NF_DEF_VAR(nid,"LONV",NF_FLOAT,1,id_lonv,vid_lonv)
-        ierr=NF_DEF_VAR(nid,"LATU",NF_FLOAT,1,id_latu,vid_latu)
-        ierr=NF_DEF_VAR(nid,"LATV",NF_FLOAT,1,id_latv,vid_latv)
-        ierr=NF_DEF_VAR(nid,"LEVEL",NF_FLOAT,1,id_lev,vid_lev)
+        ierr=NF_DEF_VAR(nid,"LONU",NF_FLOAT,1,[id_lonu],vid_lonu)
+        ierr=NF_DEF_VAR(nid,"LONV",NF_FLOAT,1,[id_lonv],vid_lonv)
+        ierr=NF_DEF_VAR(nid,"LATU",NF_FLOAT,1,[id_latu],vid_latu)
+        ierr=NF_DEF_VAR(nid,"LATV",NF_FLOAT,1,[id_latv],vid_latv)
+        ierr=NF_DEF_VAR(nid,"LEVEL",NF_FLOAT,1,[id_lev],vid_lev)
         ierr=NF_DEF_VAR(nid,"cu",NF_FLOAT,2,(/id_lonu,id_latu/),vid_cu)
         ierr=NF_DEF_VAR(nid,"au",NF_FLOAT,2,(/id_lonu,id_latu/),vid_au)