/[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 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC
# Line 42  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 50  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.82  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21