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

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

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

trunk/libf/phylmd/readsulfate.f90 revision 69 by guez, Mon Feb 18 16:33:12 2013 UTC trunk/phylmd/readsulfate.f revision 129 by guez, Fri Feb 13 18:22:38 2015 UTC
# Line 28  contains Line 28  contains
28    
29      USE dimens_m, ONLY: iim, jjm      USE dimens_m, ONLY: iim, jjm
30      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
31        USE dynetat0_m, ONLY: annee_ref
32      use getso4fromfile_m, only: getso4fromfile      use getso4fromfile_m, only: getso4fromfile
     USE temps, ONLY: annee_ref  
33    
34      ! Input:      ! Input:
35    
# Line 48  contains Line 48  contains
48      INTEGER j, iday, ny, iyr, iyr1, iyr2      INTEGER j, iday, ny, iyr, iyr1, iyr2
49      parameter (ny=jjm+1)      parameter (ny=jjm+1)
50    
51      INTEGER ismaller      CHARACTER(len=4) cyear
     !JLD      INTEGER idec1, idec2 ! The two decadal data read ini  
     CHARACTER*4 cyear  
52    
53      INTEGER im, day1, day2, im2      INTEGER im, day1, day2, im2
54      double precision so4_1(iim, jjm+1, klev, 12)      double precision so4_1(iim, jjm+1, klev, 12)
Legend:
Removed from v.69  
changed lines
  Added in v.129
  ViewVC Help
Powered by ViewVC 1.1.21