/[lmdze]/trunk/dyn3d/limit.f
ViewVC logotype

Diff of /trunk/dyn3d/limit.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 276 by guez, Thu Jul 12 14:49:20 2018 UTC
# Line 4  module limit_mod Line 4  module limit_mod
4    
5  contains  contains
6    
7    SUBROUTINE limit    SUBROUTINE limit(pctsrf)
8    
9      ! Authors: L. Fairhead, Z. X. Li, P. Le Van      ! Authors: L. Fairhead, Z. X. Li, P. Le Van
10    
# Line 14  contains Line 14  contains
14    
15      use conf_dat2d_m, only: conf_dat2d      use conf_dat2d_m, only: conf_dat2d
16      use dimensions, only: iim, jjm      use dimensions, only: iim, jjm
17      use dimphy, only: klon, zmasq      use dimphy, only: klon
18      use dynetat0_m, only: rlonu, rlatv      use dynetat0_m, only: rlonu, rlatv
     use etat0_mod, only: pctsrf  
19      use grid_change, only: dyn_phy      use grid_change, only: dyn_phy
20      use indicesol, only: epsfra, is_ter, is_oce, is_lic, is_sic      use indicesol, only: epsfra, is_ter, is_oce, is_lic, is_sic
21      use inter_barxy_m, only: inter_barxy      use inter_barxy_m, only: inter_barxy
# Line 28  contains Line 27  contains
27           NF90_UNLIMITED           NF90_UNLIMITED
28      use nr_util, only: assert      use nr_util, only: assert
29      use numer_rec_95, only: spline, splint      use numer_rec_95, only: spline, splint
30        use phyetat0_m, only: zmasq
31      use start_init_orog_m, only: mask      use start_init_orog_m, only: mask
32      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
33    
34        REAL, intent(inout):: pctsrf(:, :) ! (klon, nbsrf)
35        ! "pctsrf(i, :)" is the composition of the surface at horizontal
36        ! position "i".
37    
38      ! Local:      ! Local:
39    
40      LOGICAL:: extrap = .FALSE.      LOGICAL:: extrap = .FALSE.
Legend:
Removed from v.265  
changed lines
  Added in v.276
  ViewVC Help
Powered by ViewVC 1.1.21