Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |