Changeset 4012

Timestamp:

Jan 19, 2026, 1:48:43 PM (5 days ago)

Author:

debatzbr

Message:

Titan PCM: Bug fixed for newstart routines.
BBT

Location:

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan

Files:

• lect_start_archive.F (modified) (2 diffs)
• newstart.F (modified) (1 diff)

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/lect_start_archive.F

@@ -582 +582 @@
       write(*,*)
       write(*,*) 'Choice for the date'
- 123  read(*,*,iostat=ierr) date
-      if(ierr.ne.0) goto 123
+
+! 123  read(*,*,iostat=ierr) date
+      date=0
+!     if(ierr.ne.0) goto 123
       memo = 0
       do i=1,timelen
@@ -602 +604 @@
 c         write(*,6) nint(timelist(i)),nint(mod(timelist(i),669))
         end do
-        goto 123
+!       goto 123
+        stop
       endif
 

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

@@ -1074 +1074 @@
       end if
 
-         
+
 c=======================================================================
 c=======================================================================