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

Timestamp:

Jul 23, 2025, 12:03:21 PM (6 months ago)

Author:

gmilcareck

Message:

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

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• initracer.F90 (modified) (1 diff)
• iniwrite.F (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/phystd/initracer.F90

@@ -506 +506 @@
         write(*,*) 'You have more Radiative Generic Condensable Species than Generic Condensable Species'
         write(*,*)'This is not possible: check your Modern traceur.def'
-        call abort_physic("initracer, issue with # of RGCS and GCS",1)
+        call abort_physic("initracer", "issue with # of RGCS and GCS",1)
       endif
 

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)