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

Diff of /trunk/filtrez/inifilr.f90

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

trunk/filtrez/inifilr.f revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC trunk/filtrez/inifilr.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 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 dimens_m, 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.254  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21