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

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

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

revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC
# Line 6  Line 6 
6        use dimens_m              use dimens_m      
7        use dimphy              use dimphy      
8        use temps              use temps      
9        use YOMCST        use SUPHEC_M
10          use chem      
11        IMPLICIT none        IMPLICIT none
12                
13  c Content:  c Content:
# Line 32  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 --------------      
       include "chem.h"        
36  c  c
37  c Input:  c Input:
38  c ------  c ------
# Line 281  c--------------------------------------- Line 279  c---------------------------------------
279        use dimens_m              use dimens_m      
280        use dimphy              use dimphy      
281        use temps              use temps      
282        use YOMCST        use SUPHEC_M
283          use chem      
284        IMPLICIT none        IMPLICIT none
285                
286  c Content:  c Content:
# Line 303  c Modifications: Line 302  c Modifications:
302  c --------------  c --------------
303  c see above  c see above
304  c        c      
 c Include-files:  
 c --------------      
       include "chem.h"        
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.7  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.21