Parent Directory
|
Revision Log
|
Patch
revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC | revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC | |
---|---|---|
# | Line 29 SUBROUTINE initfluxsto(tstep, t_ops, t_w | Line 29 SUBROUTINE initfluxsto(tstep, t_ops, t_w |
29 | USE paramet_m | USE paramet_m |
30 | USE comconst | USE comconst |
31 | USE comvert | USE comvert |
32 | USE logic | use conf_gcm_m |
33 | USE comgeom | USE comgeom |
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 |