Parent Directory | Revision Log | Patch
revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC | revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC | |
---|---|---|
# | Line 34 SUBROUTINE initfluxsto(tstep, t_ops, t_w | Line 34 SUBROUTINE initfluxsto(tstep, t_ops, t_w |
34 | USE serre | USE serre |
35 | USE temps, ONLY : annee_ref, day_ref, itau_dyn | USE temps, ONLY : annee_ref, day_ref, itau_dyn |
36 | USE ener | USE ener |
37 | USE nr_util, ONLY : pi | |
38 | ||
39 | IMPLICIT NONE | IMPLICIT NONE |
40 | ||
# | Line 59 SUBROUTINE initfluxsto(tstep, t_ops, t_w | Line 60 SUBROUTINE initfluxsto(tstep, t_ops, t_w |
60 | !--------------------------------------------------------- | !--------------------------------------------------------- |
61 | ||
62 | ! Initialisations | ! Initialisations |
pi = 4.*atan(1.) | ||
63 | str = 'q ' | str = 'q ' |
64 | ctrac = 'traceur ' | ctrac = 'traceur ' |
65 | ok_sync = .TRUE. | ok_sync = .TRUE. |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |