/[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 113 by guez, Thu Sep 18 19:56:46 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 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 116  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.113  
changed lines
  Added in v.128
  ViewVC Help
Powered by ViewVC 1.1.21