/[lmdze]/trunk/IOIPSL/Histcom/histbeg_totreg.f90
ViewVC logotype

Diff of /trunk/IOIPSL/Histcom/histbeg_totreg.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 334 by guez, Thu Jun 13 14:40:06 2019 UTC revision 335 by guez, Thu Sep 12 21:22:46 2019 UTC
# Line 19  MODULE histbeg_totreg_m Line 19  MODULE histbeg_totreg_m
19    IMPLICIT NONE    IMPLICIT NONE
20    
21    INTEGER:: nb_files = 0    INTEGER:: nb_files = 0
22    REAL, DIMENSION(nb_files_max), SAVE:: date0, deltat    double precision, SAVE:: date0(nb_files_max)
23      REAL, SAVE:: deltat(nb_files_max)
24    LOGICAL:: regular(nb_files_max) = .TRUE.    LOGICAL:: regular(nb_files_max) = .TRUE.
25    
26    private nb_files_max    private nb_files_max
# Line 60  CONTAINS Line 61  CONTAINS
61      INTEGER, INTENT(IN):: szy ! size of the slab of data in Y      INTEGER, INTENT(IN):: szy ! size of the slab of data in Y
62    
63      INTEGER, INTENT(IN):: pitau0 ! time step at which the history tape starts      INTEGER, INTENT(IN):: pitau0 ! time step at which the history tape starts
64      REAL, INTENT(IN):: pdate0 ! the Julian date at which the itau was equal to 0      double precision, INTENT(IN):: pdate0 ! the Julian date at which the itau was equal to 0
65      REAL, INTENT(IN):: pdeltat ! time step of the counter itau, in seconds      REAL, INTENT(IN):: pdeltat ! time step of the counter itau, in seconds
66    
67      INTEGER, INTENT(OUT):: horiid ! ID of the horizontal grid      INTEGER, INTENT(OUT):: horiid ! ID of the horizontal grid
Legend:
Removed from v.334  
changed lines
  Added in v.335
  ViewVC Help
Powered by ViewVC 1.1.21