/[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

revision 139 by guez, Tue May 26 17:46:03 2015 UTC revision 151 by guez, Tue Jun 23 15:14:20 2015 UTC
# Line 48  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 58  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.139  
changed lines
  Added in v.151
  ViewVC Help
Powered by ViewVC 1.1.21