Changeset 5448 for LMDZ6/trunk/libf/phylmd/iotd_ecrit.f90

Timestamp:

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

Author:

fhourdin

Message:

For replay

File:

• LMDZ6/trunk/libf/phylmd/iotd_ecrit.f90 (modified) (3 diffs)

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)