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

Diff of /trunk/phylmd/initphysto.f

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

revision 107 by guez, Thu Sep 4 10:05:52 2014 UTC revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC
# Line 45  SUBROUTINE initphysto(infile,rlon,rlat,t Line 45  SUBROUTINE initphysto(infile,rlon,rlat,t
45    IMPLICIT NONE    IMPLICIT NONE
46    
47    !   Arguments    !   Arguments
48    CHARACTER*(*) infile    CHARACTER(len=*) infile
49    INTEGER nhoriid, i    INTEGER nhoriid, i
50    REAL, INTENT (IN) :: tstep    REAL, INTENT (IN) :: tstep
51    REAL t_ops, t_wrt    REAL t_ops, t_wrt
# Line 57  SUBROUTINE initphysto(infile,rlon,rlat,t Line 57  SUBROUTINE initphysto(infile,rlon,rlat,t
57    
58    INTEGER tau0    INTEGER tau0
59    REAL zjulian    REAL zjulian
60    CHARACTER*3 str    CHARACTER(len=3) str
61    CHARACTER*10 ctrac    CHARACTER(len=10) ctrac
62    INTEGER iq    INTEGER iq
63    INTEGER uhoriid, vhoriid, thoriid, zvertiid    INTEGER uhoriid, vhoriid, thoriid, zvertiid
64    INTEGER ii, jj    INTEGER ii, jj
Legend:
Removed from v.107  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.21