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 37 SUBROUTINE initphysto(infile,rlon,rlat,t | Line 37 SUBROUTINE initphysto(infile,rlon,rlat,t |
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 |