Changeset 3732 for trunk/LMDZ.PLUTO

Timestamp:

Apr 22, 2025, 4:42:47 PM (8 weeks ago)

Author:

afalco

Message:

PLUTO: example script and .def file to rescale start files.
Do not care about date if only one time step in start archive.
AF

Location:

trunk/LMDZ.PLUTO

Files:

• deftank/newstart/newscale.def (added)
• deftank/newstart/newscale_z2sig.sh (added)
• libf/dynphy_lonlat/phypluto/lect_start_archive.F (modified) (3 diffs)

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

@@ -264 +264 @@
       write(*,*) '  Otherwise, set nsoilmx -in dimphys.h- to: ',nsoilold
       endif
-      write(*,*) "time lenght: ",timelen
+      write(*,*) "time length: ",timelen
       write(*,*)
 
@@ -596 +596 @@
  123  read(*,*,iostat=ierr) date
       if(ierr.ne.0) goto 123
+      if (timelen.eq.1) then
+        memo = 1
+      else
       memo = 0
       do i=1,timelen
@@ -615 +618 @@
         end do
         goto 123
+      endif
       endif