/[lmdze]/trunk/bibio/initfluxsto.f
ViewVC logotype

Diff of /trunk/bibio/initfluxsto.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 34  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 34  SUBROUTINE initfluxsto(tstep, t_ops, t_w
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.
Legend:
Removed from v.31  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21