/[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

trunk/libf/phylmd/readsulfate_preind.f90 revision 68 by guez, Wed Nov 14 16:59:30 2012 UTC trunk/phylmd/readsulfate_preind.f revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC
# Line 7  SUBROUTINE readsulfate_preind (r_day, fi Line 7  SUBROUTINE readsulfate_preind (r_day, fi
7    use temps    use temps
8    use SUPHEC_M    use SUPHEC_M
9    use chem    use chem
10      use getso4fromfile_m, only: getso4fromfile
11    IMPLICIT none    IMPLICIT none
12    
13    ! Content:    ! Content:
# Line 41  SUBROUTINE readsulfate_preind (r_day, fi Line 42  SUBROUTINE readsulfate_preind (r_day, fi
42    INTEGER j, iday, ny, iyr    INTEGER j, iday, ny, iyr
43    parameter (ny=jjm+1)    parameter (ny=jjm+1)
44    
45    INTEGER im, day1, day2, im2, ismaller    INTEGER im, day1, day2, im2
46    double precision pi_so4_1(iim, jjm+1, klev, 12)    double precision pi_so4_1(iim, jjm+1, klev, 12)
47    
48    double precision pi_so4(klon, klev, 12)  ! SO4 in right dimension    double precision pi_so4(klon, klev, 12)  ! SO4 in right dimension
# Line 49  SUBROUTINE readsulfate_preind (r_day, fi Line 50  SUBROUTINE readsulfate_preind (r_day, fi
50    double precision pi_so4_out(klon, klev)    double precision pi_so4_out(klon, klev)
51    SAVE pi_so4_out    SAVE pi_so4_out
52    
53    CHARACTER*4 cyear    CHARACTER(len=4) cyear
54    LOGICAL lnewday    LOGICAL lnewday
55    
56    
Legend:
Removed from v.68  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21