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

Diff of /trunk/dyn3d/dynetat0.f

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

revision 85 by guez, Thu Mar 6 17:35:22 2014 UTC revision 128 by guez, Thu Feb 12 16:23:33 2015 UTC
# Line 6  module dynetat0_m Line 6  module dynetat0_m
6    
7  contains  contains
8    
9    SUBROUTINE dynetat0(vcov, ucov, teta, q, masse, ps, phis, time_0)    SUBROUTINE dynetat0(vcov, ucov, teta, q, masse, ps, phis)
10    
11      ! From dynetat0.F, version 1.2, 2004/06/22 11:45:30      ! From dynetat0.F, version 1.2, 2004/06/22 11:45:30
12      ! Authors: P. Le Van, L. Fairhead      ! Authors: P. Le Van, L. Fairhead
# Line 14  contains Line 14  contains
14    
15      use comconst, only: dtvr      use comconst, only: dtvr
16      use comgeom, only: rlonu, rlatu, rlonv, rlatv, cu_2d, cv_2d, aire_2d      use comgeom, only: rlonu, rlatu, rlonv, rlatv, cu_2d, cv_2d, aire_2d
     use conf_gcm_m, only: fxyhypb, ysinus  
17      use dimens_m, only: iim, jjm, llm, nqmx      use dimens_m, only: iim, jjm, llm, nqmx
18      use disvert_m, only: pa      use disvert_m, only: pa
19      use ener, only: etot0, ang0, ptot0, stot0, ztot0      use ener, only: etot0, ang0, ptot0, stot0, ztot0
# Line 23  contains Line 22  contains
22      use netcdf95, only: NF95_GET_VAR, nf95_open, nf95_inq_varid, NF95_CLOSE, &      use netcdf95, only: NF95_GET_VAR, nf95_open, nf95_inq_varid, NF95_CLOSE, &
23           NF95_Gw_VAR           NF95_Gw_VAR
24      use nr_util, only: assert      use nr_util, only: assert
25      use serre, only: clon, clat, grossismy, grossismx      use serre, only: clon, clat, grossismy, grossismx, dzoomx, dzoomy, taux, &
26             tauy
27      use temps, only: day_ref, itau_dyn, annee_ref      use temps, only: day_ref, itau_dyn, annee_ref
28    
29      REAL, intent(out):: vcov(: , :, :) ! (iim + 1, jjm, llm)      REAL, intent(out):: vcov(: , :, :) ! (iim + 1, jjm, llm)
# Line 33  contains Line 33  contains
33      REAL, intent(out):: masse(:, :, :) ! (iim + 1, jjm + 1, llm)      REAL, intent(out):: masse(:, :, :) ! (iim + 1, jjm + 1, llm)
34      REAL, intent(out):: ps(:, :) ! (iim + 1, jjm + 1) in Pa      REAL, intent(out):: ps(:, :) ! (iim + 1, jjm + 1) in Pa
35      REAL, intent(out):: phis(:, :) ! (iim + 1, jjm + 1)      REAL, intent(out):: phis(:, :) ! (iim + 1, jjm + 1)
     REAL, intent(out):: time_0  
36    
37      ! Local variables:      ! Local variables:
38      INTEGER iq      INTEGER iq
# Line 80  contains Line 79  contains
79      stot0 = tab_cntrl(16)      stot0 = tab_cntrl(16)
80      ang0 = tab_cntrl(17)      ang0 = tab_cntrl(17)
81      pa = tab_cntrl(18)      pa = tab_cntrl(18)
82    
83      clon = tab_cntrl(20)      clon = tab_cntrl(20)
84      clat = tab_cntrl(21)      clat = tab_cntrl(21)
85      grossismx = tab_cntrl(22)      grossismx = tab_cntrl(22)
86      grossismy = tab_cntrl(23)      grossismy = tab_cntrl(23)
87      fxyhypb = tab_cntrl(24) == 1.      dzoomx = tab_cntrl(25)
88      if (.not. fxyhypb) ysinus = tab_cntrl(27) == 1.      dzoomy = tab_cntrl(26)
89        taux = tab_cntrl(28)
90        tauy = tab_cntrl(29)
91    
92      itau_dyn = tab_cntrl(31)      itau_dyn = tab_cntrl(31)
93    
94      call NF95_INQ_VARID (ncid, "rlonu", varid)      call NF95_INQ_VARID (ncid, "rlonu", varid)
# Line 112  contains Line 115  contains
115      call NF95_INQ_VARID (ncid, "phisinit", varid)      call NF95_INQ_VARID (ncid, "phisinit", varid)
116      call NF95_GET_VAR(ncid, varid, phis)      call NF95_GET_VAR(ncid, varid, phis)
117    
118      call NF95_INQ_VARID (ncid, "temps", varid)      day_ini = tab_cntrl(30)
     call NF95_GET_VAR(ncid, varid, time_0)  
   
     day_ini = tab_cntrl(30) + INT(time_0)  
     time_0 = time_0 - INT(time_0)  
     ! {0 <= time0 < 1}  
119    
120      deallocate(tab_cntrl) ! pointer      deallocate(tab_cntrl) ! pointer
121    
Legend:
Removed from v.85  
changed lines
  Added in v.128
  ViewVC Help
Powered by ViewVC 1.1.21