/[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 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.
Legend:
Removed from v.31  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21