/[lmdze]/trunk/Sources/phylmd/readsulfate_preind.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/readsulfate_preind.f

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

revision 129 by guez, Fri Feb 13 18:22:38 2015 UTC revision 130 by guez, Tue Feb 24 15:43:51 2015 UTC
# Line 4  module readsulfate_preind_m Line 4  module readsulfate_preind_m
4    
5  contains  contains
6    
7    SUBROUTINE readsulfate_preind(r_day, first, pi_sulfate)    SUBROUTINE readsulfate_preind(dayvrai, time, first, pi_sulfate)
8    
9      ! Read in /calculate pre-industrial values of sulfate      ! Read in /calculate pre-industrial values of sulfate
10    
# Line 32  contains Line 32  contains
32      !      !
33      ! Input:      ! Input:
34      ! ------      ! ------
35      real, intent(in)::  r_day                   ! Day of integration      integer, intent(in):: dayvrai
36        ! current day number, based at value 1 on January 1st of annee_ref
37    
38        REAL, intent(in):: time ! heure de la journ\'ee en fraction de jour
39    
40      LOGICAL, intent(in):: first                 ! First timestep      LOGICAL, intent(in):: first                 ! First timestep
41      ! (and therefore initialization necessary)      ! (and therefore initialization necessary)
42      !      !
# Line 60  contains Line 64  contains
64    
65    
66    
67      iday = INT(r_day)      iday = dayvrai
68    
69      ! Get the year of the run      ! Get the year of the run
70      iyr  = iday/360      iyr  = iday/360
# Line 69  contains Line 73  contains
73      iday = iday-iyr*360      iday = iday-iyr*360
74    
75      ! 0.02 is about 0.5/24, namly less than half an hour      ! 0.02 is about 0.5/24, namly less than half an hour
76      lnewday = (r_day-FLOAT(iday).LT.0.02)      lnewday = time < 0.02
77    
78      ! ---------------------------------------------      ! ---------------------------------------------
79      ! All has to be done only, if a new day begins!      ! All has to be done only, if a new day begins!
Legend:
Removed from v.129  
changed lines
  Added in v.130
  ViewVC Help
Powered by ViewVC 1.1.21