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 32 SUBROUTINE initphysto(infile,rlon,rlat,t | Line 32 SUBROUTINE initphysto(infile,rlon,rlat,t |
32 | USE comconst | USE comconst |
33 | USE indicesol | USE indicesol |
34 | USE dimphy | USE dimphy |
35 | USE logic | use conf_gcm_m |
36 | USE comgeom | USE comgeom |
37 | USE serre | USE serre |
38 | USE temps | USE temps |
39 | USE ener | USE ener |
40 | USE nr_util, ONLY : pi | |
41 | ||
42 | IMPLICIT NONE | IMPLICIT NONE |
43 | ||
# | Line 67 SUBROUTINE initphysto(infile,rlon,rlat,t | Line 68 SUBROUTINE initphysto(infile,rlon,rlat,t |
68 | !----------------------------------------------------- | !----------------------------------------------------- |
69 | ||
70 | ! Initialisations | ! Initialisations |
pi = 4.*atan(1.) | ||
71 | str = 'q ' | str = 'q ' |
72 | ctrac = 'traceur ' | ctrac = 'traceur ' |
73 | ok_sync = .TRUE. | ok_sync = .TRUE. |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |