Changeset 3945 for trunk/LMDZ.PLUTO/libf

Timestamp:

Oct 30, 2025, 5:39:37 PM (6 weeks ago)

Author:

tbertrand

Message:

PLUTO PCM
small fix to read the proper initial date when running the model in Triton's conditions
TB

Location:

trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto

Files:

• lect_start_archive.F (modified) (2 diffs)
• start2archive.F (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/lect_start_archive.F

@@ -587 +587 @@
       pi=2.*ASIN(1.)
       do i=1,timelen
-c       call solarlong(timelist(i),sollong(i))
-c       sollong(i) = sollong(i)*180./pi
         write(*,*) 'initial state for day ' ,int(timelist(i))
-c       write(*,6) nint(timelist(i)),nint(mod(timelist(i),669)),
-c    .    sollong(i)
       end do
 
@@ -619 +615 @@
         do i=1,timelen
           write(*,*) 'initial state for day ' ,nint(timelist(i))
-c         write(*,6) nint(timelist(i)),nint(mod(timelist(i),669))
         end do
         goto 123

trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/start2archive.F

@@ -28 +28 @@
       USE mod_const_mpi, ONLY: COMM_LMDZ
       USE control_mod, only: planet_type
-c      USE callkeys_mod, ONLY: ok_slab_ocean
+      USE callkeys_mod, ONLY: triton
       use filtreg_mod, only: inifilr
       USE comvert_mod, ONLY: ap,bp
@@ -282 +282 @@
 c *****************************************************************
 c    Option : Reinitialisation des dates dans la premieres annees :
+      if (.not.triton) then
        do while (day_ini.ge.year_day)
           day_ini=day_ini-year_day
        enddo
+      endif
 c *****************************************************************