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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC 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.82  
changed lines
  Added in v.129
  ViewVC Help
Powered by ViewVC 1.1.21