/[lmdze]/trunk/filtrez/inifilr.f
ViewVC logotype

Diff of /trunk/filtrez/inifilr.f

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

revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC revision 313 by guez, Mon Dec 10 15:54:30 2018 UTC
# Line 39  contains Line 39  contains
39      ! (stretching coefficient) is set equal to zero for the regular      ! (stretching coefficient) is set equal to zero for the regular
40      ! grid case.      ! grid case.
41    
42      USE dimensions, ONLY : iim, jjm      ! Libraries:
     USE dynetat0_m, ONLY : rlatu, rlatv, xprimu, grossismx  
     use inifgn_m, only: inifgn  
     use inifilr_hemisph_m, only: inifilr_hemisph  
43      use jumble, only: new_unit      use jumble, only: new_unit
44      use nr_util, only: pi, ifirstloc, assert      use nr_util, only: pi, ifirstloc, assert
45    
46        USE dimensions, ONLY: iim, jjm
47        USE dynetat0_m, ONLY: rlatu, rlatv, xprimu
48        USE dynetat0_chosen_m, ONLY: grossismx
49        use inifgn_m, only: inifgn
50        use inifilr_hemisph_m, only: inifilr_hemisph
51    
52      ! Local:      ! Local:
53    
54      REAL dlatu(jjm)      REAL dlatu(jjm)
Legend:
Removed from v.265  
changed lines
  Added in v.313
  ViewVC Help
Powered by ViewVC 1.1.21