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

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/dyn3dpar/guide_p_mod.F90 (modified) (4 diffs)

trunk/LMDZ.COMMON/libf/dyn3dpar/guide_p_mod.F90

@@ -1409 +1409 @@
          IF (guide_plevs.EQ.1) 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
          ELSEIF (guide_plevs.EQ.0) THEN
 #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
@@ -1674 +1674 @@
          if (guide_plevs.EQ.1) 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
          elseif (guide_plevs.EQ.0) THEN
 #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
@@ -1856 +1856 @@
 ! Definition des dimensions
         ierr=NF_DEF_DIM(nid,"LONU",iip1,id_lonu) 
-        print*,'id_lonu 1 ',id_lonu
         ierr=NF_DEF_DIM(nid,"LONV",iip1,id_lonv) 
         ierr=NF_DEF_DIM(nid,"LATU",jjp1,id_latu) 
@@ -1864 +1863 @@
 
 ! Creation des variables dimensions
-        ierr=NF_DEF_VAR(nid,"LONU",NF_FLOAT,1,id_lonu,vid_lonu)
-        print*,'id_lonu 2 ',id_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,"cv",NF_FLOAT,2,(/id_lonv,id_latv/),vid_cv)