/[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 83 by guez, Thu Mar 6 15:12:00 2014 UTC revision 113 by guez, Thu Sep 18 19:56:46 2014 UTC
# Line 10  CONTAINS Line 10  CONTAINS
10      ! Ecriture du fichier de redémarrage au format NetCDF (initialisation)      ! Ecriture du fichier de redémarrage au format NetCDF (initialisation)
11    
12      USE comconst, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad      USE comconst, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
     USE disvert_m, ONLY: ap, bp, pa, preff, presnivs  
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
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
16      USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0      USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0
     USE calendar, ONLY: ju2ymds, ymds2ju  
17      USE iniadvtrac_m, ONLY: tname, ttext      USE iniadvtrac_m, ONLY: tname, ttext
18      use conf_gcm_m, ONLY: fxyhypb, ysinus      USE ju2ymds_m, ONLY: ju2ymds
19        USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_global, nf90_unlimited
20      USE netcdf95, ONLY: nf95_close, nf95_create, nf95_def_dim, nf95_def_var, &      USE netcdf95, ONLY: nf95_close, nf95_create, nf95_def_dim, nf95_def_var, &
21           nf95_enddef, nf95_inq_varid, nf95_put_att, nf95_put_var           nf95_enddef, nf95_inq_varid, nf95_put_att, nf95_put_var
     USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_global, nf90_unlimited  
22      USE paramet_m, ONLY: iip1, jjp1, llmp1      USE paramet_m, ONLY: iip1, jjp1, llmp1
23      USE serre, ONLY: clat, clon, dzoomx, dzoomy, grossismx, grossismy, taux, &      USE serre, ONLY: clat, clon, dzoomx, dzoomy, grossismx, grossismy, taux, &
24           tauy           tauy
25      USE temps, ONLY: annee_ref, day_ref      USE temps, ONLY: annee_ref, day_ref
26        use ymds2ju_m, only: ymds2ju
27    
28      CHARACTER(len=*), INTENT(IN):: fichnom      CHARACTER(len=*), INTENT(IN):: fichnom
29      INTEGER, INTENT(IN):: iday_end      INTEGER, INTENT(IN):: iday_end
# Line 83  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.83  
changed lines
  Added in v.113
  ViewVC Help
Powered by ViewVC 1.1.21