Changeset 2915 for trunk/LMDZ.MARS

Timestamp:

Mar 14, 2023, 3:51:56 PM (21 months ago)

Author:

romain.vande

Message:

Mars PCM:
Move the initialisation of inertiedat in the subslope dimension for the case where we start without startfi.
RV

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/physiq_mod.F (modified) (2 diffs)

trunk/LMDZ.MARS/README

@@ -3946 +3946 @@
 == 14/03/2023 == RV
 Adapt start2archive_SSO.F to the subslope parametrisation.
+
+== 14/03/2023 == RV
+Move the initialisation of inertiedat in the subslope dimension for the case where we start without startfi.

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -605 +605 @@
        PRINT*,'corresponding criterium = ',def_slope_mean(iflat)
 
-       DO islope = 1,nslope
-         inertiedat_tmp(:,:,islope) = inertiedat(:,:)
-       ENDDO
-
 #else
 ! MESOSCALE. Supposedly everything is already set in modules.
@@ -666 +662 @@
            day_ini=pday
         endif
+       DO islope = 1,nslope
+         inertiedat_tmp(:,:,islope) = inertiedat(:,:)
+       ENDDO
 #endif
          if (pday.ne.day_ini) then