/[lmdze]/trunk/phylmd/initphysto.f
ViewVC logotype

Diff of /trunk/phylmd/initphysto.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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.
Legend:
Removed from v.31  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21