Changeset 2915 for trunk/LMDZ.MARS/libf

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

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (2 diffs)

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