Changeset 1073 for trunk/LMDZ.MARS/util/lslin.F90

Timestamp:

Oct 17, 2013, 4:19:26 PM (11 years ago)

Author:

tnavarro

Message:

Better handling of the first date of the file : Read and write the controle field, if possible, for zrecast, localtime and concatnc + cosmetic change in lslin. This is retrocompatible with previous versions.

File:

• trunk/LMDZ.MARS/util/lslin.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/util/lslin.F90

@@ -10 +10 @@
 ! Modified by Ehouarn Millour 10/2007 (changed evaluation of 'start_var'
 ! from hard-coded values to a computed value) 
+! Read controle field, if available TN, October 2013
+
 
 implicit none
@@ -109 +111 @@
 read(*,'(a50)') infile 
 
-write(*,*) "Is it a concatnc file? (y/n)?"
+!write(*,*) "Is it a concatnc file? (y/n)?"
+write(*,*) "Do you want to specify the beginning day of the file"
+write(*,*) "in case the controle field is not present ? (y/n)?"
 read(*,*) answer
 if ((answer=="y").or.(answer=="Y")) then
-   write(*,*) "Beginning day of the concatnc file?"
+   write(*,*) "Beginning day of the file?"
    read(*,*) reptime 
 !   start_var=8 ! 'concatnc' type of file
@@ -311 +315 @@
    endif
 
-   day_ini = tab_cntrl(4)                                                     
+   day_ini = tab_cntrl(4)                                               
+   day_ini = modulo(day_ini,669)                                                    
    write(*,*) 'day_ini', day_ini
 else