Changeset 3865 for trunk/LMDZ.GENERIC/libf/phystd/iniwrite.F

Timestamp:

Jul 23, 2025, 12:03:21 PM (2 weeks ago)

Author:

gmilcareck

Message:

Fix bug on variable definition of ap, bp, aps and bps. A scalar was given instead of an array.

File:

• trunk/LMDZ.GENERIC/libf/phystd/iniwrite.F (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/phystd/iniwrite.F

@@ -241 +241 @@
 c  Vertical levels
       call def_var(nid,"aps","hybrid pressure at midlayers ","Pa",
-     .            1,idim_llm,nvarid,ierr)
+     .            1,[idim_llm],nvarid,ierr)
 #ifdef NC_DOUBLE
       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,aps)
@@ -249 +249 @@
 
       call def_var(nid,"bps","hybrid sigma at midlayers"," ",
-     .            1,idim_llm,nvarid,ierr)
+     .            1,[idim_llm],nvarid,ierr)
 #ifdef NC_DOUBLE
       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,bps)
@@ -257 +257 @@
 
       call def_var(nid,"ap","hybrid pressure at interlayers","Pa",
-     .            1,idim_llmp1,nvarid,ierr)
+     .            1,[idim_llmp1],nvarid,ierr)
 #ifdef NC_DOUBLE
       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,ap)
@@ -265 +265 @@
 
       call def_var(nid,"bp","hybrid sigma at interlayers"," ",
-     .            1,idim_llmp1,nvarid,ierr)
+     .            1,[idim_llmp1],nvarid,ierr)
 #ifdef NC_DOUBLE
       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,bp)