Parent Directory | Revision Log | Patch
revision 92 by guez, Wed Mar 26 18:16:05 2014 UTC | revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC | |
---|---|---|
# | Line 39 SUBROUTINE initphysto(infile,rlon,rlat,t | Line 39 SUBROUTINE initphysto(infile,rlon,rlat,t |
39 | USE comgeom | USE comgeom |
40 | USE serre | USE serre |
41 | USE temps | USE temps |
USE ener | ||
42 | USE nr_util, ONLY : pi | USE nr_util, ONLY : pi |
43 | USE ymds2ju_m | USE ymds2ju_m |
44 | ||
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 58 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 |