Changeset 3670 for trunk/LMDZ.PLUTO/util/startarchive2icosa/rearrange_startphy.f90

Timestamp:

Mar 5, 2025, 2:13:18 PM (5 months ago)

Author:

afalco

Message:

Pluto: fixed bug in LMDZ to DYNAMICO conversion.
AF

File:

• trunk/LMDZ.PLUTO/util/startarchive2icosa/rearrange_startphy.f90 (modified) (2 diffs)

trunk/LMDZ.PLUTO/util/startarchive2icosa/rearrange_startphy.f90

@@ -144 +144 @@
 !   ierr=NF90_INQUIRE_DIMENSION(ncid, dimids(9), len=nslope)
   ierr=NF90_INQUIRE(ncid,nVariables=nvar)
+  print*, "physical_points", physical_points, "dim", dimids(1)
+  print*, "nvertex", nvertex, "dim", dimids(2)
+  print*, "index", index_, "dim", dimids(4)
+  print*, "subsurface_layers", subsurface_layer, "dim", dimids(6)
+  print*, "lev_p1", lev_p1, "dim", dimids(7)
+  print*, "Time", Time, "dim", dimids(8)
 
 
@@ -235 +241 @@
 
     ! Processing 2D variables : soil
-    else if ((ndim==2).and.(varname_dimids(2)==subsurface_layer)) then
+    else if ((ndim==2).and.(varname_dimids(2)==dimids(6))) then
       write(*,*) "processing ",trim(varname)
       ! load field_soil