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

Diff of /trunk/dyn3d/dynredem0.f

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

revision 112 by guez, Wed Mar 26 18:16:05 2014 UTC revision 113 by guez, Thu Sep 18 19:56:46 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 84  CONTAINS Line 83  CONTAINS
83      tab_cntrl(21) = clat      tab_cntrl(21) = clat
84      tab_cntrl(22) = grossismx      tab_cntrl(22) = grossismx
85      tab_cntrl(23) = grossismy      tab_cntrl(23) = grossismy
86        tab_cntrl(24) = 1.
87      IF (fxyhypb) THEN      tab_cntrl(25) = dzoomx
88         tab_cntrl(24) = 1.      tab_cntrl(26) = dzoomy
89         tab_cntrl(25) = dzoomx      tab_cntrl(27) = 0.
90         tab_cntrl(26) = dzoomy      tab_cntrl(28) = taux
91         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  
92    
93      tab_cntrl(30) = real(iday_end)      tab_cntrl(30) = real(iday_end)
94    
Legend:
Removed from v.112  
changed lines
  Added in v.113
  ViewVC Help
Powered by ViewVC 1.1.21