/[lmdze]/trunk/libf/dyn3d/limit.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/limit.f90

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

revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC
# Line 1  Line 1 
1  module limit_mod  module limit_mod
2    
   ! This module is clean: no C preprocessor directive, no include line.  
   
3    IMPLICIT none    IMPLICIT none
4    
5  contains  contains
# Line 15  contains Line 13  contains
13      ! Both grids must be regular.      ! Both grids must be regular.
14    
15      use dimens_m, only: iim, jjm      use dimens_m, only: iim, jjm
     use comconst, only: daysec, dtvr  
16      use indicesol, only: epsfra, nbsrf, is_ter, is_oce, is_lic, is_sic      use indicesol, only: epsfra, nbsrf, is_ter, is_oce, is_lic, is_sic
17      use dimphy, only: klon, zmasq      use dimphy, only: klon, zmasq
     use conf_gcm_m, only: day_step  
18      use comgeom, only: rlonu, rlatv      use comgeom, only: rlonu, rlatv
19      use etat0_mod, only: pctsrf      use etat0_mod, only: pctsrf
20      use start_init_orog_m, only: mask      use start_init_orog_m, only: mask
# Line 86  contains Line 82  contains
82      read (unit=*, nml=limit_nml)      read (unit=*, nml=limit_nml)
83      write(unit=*, nml=limit_nml)      write(unit=*, nml=limit_nml)
84    
     ! Initializations:  
     dtvr = daysec / real(day_step)  
     CALL inigeom  
   
85      ! Process rugosity:      ! Process rugosity:
86    
87      PRINT *, 'Processing rugosity...'      PRINT *, 'Processing rugosity...'
Legend:
Removed from v.22  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.21