Changeset 5448 for LMDZ6/trunk

Timestamp:

Dec 23, 2024, 3:53:41 AM (23 hours ago)

Author:

fhourdin

Message:

For replay

Location:

LMDZ6/trunk/libf/phylmd

Files:

• iotd_ecrit.f90 (modified) (3 diffs)
• iotd_ini.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/iotd_ecrit.f90

@@ -123 +123 @@
 !Case of a 3D variable
 !---------------------
-        if (llm==lmax) then
+       if (llm==lmax) then
            ndim=4
            corner(1)=1
@@ -134 +134 @@
            edges(4)=1
            dim_cc=dim_coord
-
 
 !Case of a 2D variable
@@ -159 +158 @@
       if (ntime==1) then
           ierr = nf90_redef (nid)
-          ierr = nf90_def_var(nid,nom,nf90_float,dim_cc,varid)
+          ierr = nf90_def_var(nid,nom,nf90_float,dim_cc(1:ndim),varid)
           !print*,'DEF ',nom,nid,varid
           ierr = nf90_enddef(nid)

LMDZ6/trunk/libf/phylmd/iotd_ini.f90

@@ -124 +124 @@
       ierr=nf90_def_var(nid, "lev", nf90_float, dim_coord(3),nvarid)
       ierr=nf90_put_att(nid,nvarid,"long_name","vert level")
-      if ( coordv(2)>coordv(1) ) then
+
+      if ( coordv(min(2,llm))>=coordv(1) ) then
          ierr=nf90_put_att(nid,nvarid,"long_name","pseudo-alt")
          ierr=nf90_put_att(nid,nvarid,'positive',"up")