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

Timestamp:

Apr 9, 2025, 11:04:01 AM (3 months ago)

Author:

emillour

Message:

Generic PCM:
Follow-up of reindexing of columns for restartfi files: In 1D one should also
initialize the "ind_cell_glo" array
EM

Location:

trunk/LMDZ.GENERIC/libf/phystd/dyn1d

Files:

• kcm1d.F90 (modified) (1 diff)
• rcm1d.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/kcm1d.F90

@@ -356 +356 @@
   call init_interface_dyn_phys
   CALL init_regular_lonlat(1,1,longitude,latitude,(/0.,0./),(/0.,0./))
-  call init_geometry(1,longitude,latitude,(/0.,0.,0.,0./),(/0.,0.,0.,0./),cell_area)
+  call init_geometry(1,longitude,latitude,(/0.,0.,0.,0./),(/0.,0.,0.,0./),cell_area,[1])
   call init_dimphy(1,nlayer) ! Initialize dimphy module
 

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

@@ -624 +624 @@
       call init_geometry(1,longitude,latitude,
      &                   (/0.,0.,0.,0./),(/0.,0.,0.,0./),
-     &                   cell_area)
+     &                   cell_area,[1])
 ! Ehouarn: init_vertial_layers called later (because disvert not called yet)
 !      call init_vertical_layers(nlayer,preff,scaleheight,