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

Diff of /trunk/phylmd/readsulfate.f

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

revision 51 by guez, Tue Sep 20 09:14:34 2011 UTC revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC
# Line 33  c 27/06/01: 10yr-mean-values to interpol Line 33  c 27/06/01: 10yr-mean-values to interpol
33  c 20/08/01: Correct the error through integer-values in interpolations        c 20/08/01: Correct the error through integer-values in interpolations      
34  c 21/08/01: Introduce flag to read in just one decade  c 21/08/01: Introduce flag to read in just one decade
35  c        c      
 c Include-files:  
 c --------------      
36  c  c
37  c Input:  c Input:
38  c ------  c ------
# Line 304  c Modifications: Line 302  c Modifications:
302  c --------------  c --------------
303  c see above  c see above
304  c        c      
 c Include-files:  
 c --------------      
305  c  c
306  c Input:  c Input:
307  c ------  c ------
# Line 498  c--------------------------------------- Line 494  c---------------------------------------
494        SUBROUTINE getso4fromfile (cyr, so4)        SUBROUTINE getso4fromfile (cyr, so4)
495        use dimens_m              use dimens_m      
496        use dimphy        use dimphy
497        include "netcdf.inc"              use netcdf
498        CHARACTER*15 fname        CHARACTER*15 fname
499        CHARACTER*4 cyr        CHARACTER*4 cyr
500                
Legend:
Removed from v.51  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.21