/[lmdze]/trunk/Sources/dyn3d/dynredem0.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/dynredem0.f

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

revision 92 by guez, Wed Mar 26 18:16:05 2014 UTC revision 116 by guez, Thu Dec 4 16:35:03 2014 UTC
# Line 11  CONTAINS Line 11  CONTAINS
11    
12      USE comconst, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad      USE comconst, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
13      USE comgeom, ONLY: aire_2d, cu_2d, cv_2d, rlatu, rlatv, rlonu, rlonv      USE comgeom, ONLY: aire_2d, cu_2d, cv_2d, rlatu, rlatv, rlonu, rlonv
     use conf_gcm_m, ONLY: fxyhypb, ysinus  
14      USE dimens_m, ONLY: iim, jjm, llm, nqmx      USE dimens_m, ONLY: iim, jjm, llm, nqmx
15      USE disvert_m, ONLY: ap, bp, pa, preff, presnivs      USE disvert_m, ONLY: ap, bp, pa, preff, presnivs
16      USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0      USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0
# Line 36  CONTAINS Line 35  CONTAINS
35      INTEGER, PARAMETER:: length = 100      INTEGER, PARAMETER:: length = 100
36      REAL tab_cntrl(length) ! tableau des paramètres du run      REAL tab_cntrl(length) ! tableau des paramètres du run
37    
38      ! Variables locales pour NetCDF:      ! Pour NetCDF :
   
39      INTEGER idim_index      INTEGER idim_index
40      INTEGER idim_rlonu, idim_rlonv, idim_rlatu, idim_rlatv      INTEGER idim_rlonu, idim_rlonv, idim_rlatu, idim_rlatv
41      INTEGER idim_s, idim_sig      INTEGER idim_s, idim_sig
# Line 84  CONTAINS Line 82  CONTAINS
82      tab_cntrl(21) = clat      tab_cntrl(21) = clat
83      tab_cntrl(22) = grossismx      tab_cntrl(22) = grossismx
84      tab_cntrl(23) = grossismy      tab_cntrl(23) = grossismy
85        tab_cntrl(24) = 1.
86      IF (fxyhypb) THEN      tab_cntrl(25) = dzoomx
87         tab_cntrl(24) = 1.      tab_cntrl(26) = dzoomy
88         tab_cntrl(25) = dzoomx      tab_cntrl(27) = 0.
89         tab_cntrl(26) = dzoomy      tab_cntrl(28) = taux
90         tab_cntrl(27) = 0.      tab_cntrl(29) = tauy
        tab_cntrl(28) = taux  
        tab_cntrl(29) = tauy  
     ELSE  
        tab_cntrl(24) = 0.  
        tab_cntrl(25) = dzoomx  
        tab_cntrl(26) = dzoomy  
        tab_cntrl(27) = 0.  
        tab_cntrl(28) = 0.  
        tab_cntrl(29) = 0.  
        IF (ysinus) tab_cntrl(27) = 1.  
     END IF  
91    
92      tab_cntrl(30) = real(iday_end)      tab_cntrl(30) = real(iday_end)
93    
Legend:
Removed from v.92  
changed lines
  Added in v.116
  ViewVC Help
Powered by ViewVC 1.1.21