/[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 128 by guez, Thu Feb 12 16:23:33 2015 UTC revision 129 by guez, Fri Feb 13 18:22:38 2015 UTC
# Line 13  CONTAINS Line 13  CONTAINS
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      USE disvert_m, ONLY: ap, bp, pa, preff, presnivs
16        use dynetat0_m, only: day_ref, annee_ref
17      USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0      USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0
18      USE iniadvtrac_m, ONLY: tname, ttext      USE iniadvtrac_m, ONLY: tname, ttext
19      USE ju2ymds_m, ONLY: ju2ymds      USE ju2ymds_m, ONLY: ju2ymds
# Line 22  CONTAINS Line 23  CONTAINS
23      USE paramet_m, ONLY: iip1, jjp1, llmp1      USE paramet_m, ONLY: iip1, jjp1, llmp1
24      USE serre, ONLY: clat, clon, dzoomx, dzoomy, grossismx, grossismy, taux, &      USE serre, ONLY: clat, clon, dzoomx, dzoomy, grossismx, grossismy, taux, &
25           tauy           tauy
     USE temps, ONLY: annee_ref, day_ref  
26      use ymds2ju_m, only: ymds2ju      use ymds2ju_m, only: ymds2ju
27    
28      CHARACTER(len=*), INTENT(IN):: fichnom      CHARACTER(len=*), INTENT(IN):: fichnom
# Line 56  CONTAINS Line 56  CONTAINS
56      DO l = 1, length      DO l = 1, length
57         tab_cntrl(l) = 0.         tab_cntrl(l) = 0.
58      END DO      END DO
59      tab_cntrl(1) = real(iim)      tab_cntrl(1) = iim
60      tab_cntrl(2) = real(jjm)      tab_cntrl(2) = jjm
61      tab_cntrl(3) = real(llm)      tab_cntrl(3) = llm
62      tab_cntrl(4) = real(day_ref)      tab_cntrl(4) = day_ref
63      tab_cntrl(5) = real(annee_ref)      tab_cntrl(5) = annee_ref
64      tab_cntrl(6) = rad      tab_cntrl(6) = rad
65      tab_cntrl(7) = omeg      tab_cntrl(7) = omeg
66      tab_cntrl(8) = g      tab_cntrl(8) = g
# Line 77  CONTAINS Line 77  CONTAINS
77      tab_cntrl(19) = preff      tab_cntrl(19) = preff
78    
79      ! Paramètres pour le zoom :      ! Paramètres pour le zoom :
   
80      tab_cntrl(20) = clon      tab_cntrl(20) = clon
81      tab_cntrl(21) = clat      tab_cntrl(21) = clat
82      tab_cntrl(22) = grossismx      tab_cntrl(22) = grossismx
# Line 89  CONTAINS Line 88  CONTAINS
88      tab_cntrl(28) = taux      tab_cntrl(28) = taux
89      tab_cntrl(29) = tauy      tab_cntrl(29) = tauy
90    
91      tab_cntrl(30) = real(iday_end)      tab_cntrl(30) = iday_end
92    
93      CALL nf95_create(fichnom, nf90_clobber, ncid)      CALL nf95_create(fichnom, nf90_clobber, ncid)
94      CALL nf95_put_att(ncid, nf90_global, 'title', &      CALL nf95_put_att(ncid, nf90_global, 'title', &
Legend:
Removed from v.128  
changed lines
  Added in v.129
  ViewVC Help
Powered by ViewVC 1.1.21