/[lmdze]/trunk/Sources/phylmd/initphysto.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/initphysto.f

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

trunk/phylmd/initphysto.f revision 129 by guez, Fri Feb 13 18:22:38 2015 UTC trunk/Sources/phylmd/initphysto.f revision 151 by guez, Tue Jun 23 15:14:20 2015 UTC
# Line 38  SUBROUTINE initphysto(infile,rlon,rlat,t Line 38  SUBROUTINE initphysto(infile,rlon,rlat,t
38    USE dimphy    USE dimphy
39    use conf_gcm_m    use conf_gcm_m
40    USE comgeom    USE comgeom
   USE serre  
41    USE nr_util, ONLY : pi    USE nr_util, ONLY : pi
42    USE ymds2ju_m    USE ymds2ju_m
43    
# Line 49  SUBROUTINE initphysto(infile,rlon,rlat,t Line 48  SUBROUTINE initphysto(infile,rlon,rlat,t
48    INTEGER nhoriid, i    INTEGER nhoriid, i
49    REAL, INTENT (IN) :: tstep    REAL, INTENT (IN) :: tstep
50    REAL t_ops, t_wrt    REAL t_ops, t_wrt
51    INTEGER fileid, filevid    INTEGER fileid
52    INTEGER nq, l    INTEGER nq, l
53    REAL nivsigs(llm)    REAL nivsigs(llm)
54    
# Line 59  SUBROUTINE initphysto(infile,rlon,rlat,t Line 58  SUBROUTINE initphysto(infile,rlon,rlat,t
58    REAL zjulian    REAL zjulian
59    CHARACTER(len=3) str    CHARACTER(len=3) str
60    CHARACTER(len=10) ctrac    CHARACTER(len=10) ctrac
   INTEGER iq  
61    INTEGER uhoriid, vhoriid, thoriid, zvertiid    INTEGER uhoriid, vhoriid, thoriid, zvertiid
   INTEGER ii, jj  
62    LOGICAL ok_sync    LOGICAL ok_sync
63    REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)    REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)
64    
Legend:
Removed from v.129  
changed lines
  Added in v.151
  ViewVC Help
Powered by ViewVC 1.1.21