/[lmdze]/trunk/Sources/dyn3d/initfluxsto.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/initfluxsto.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 83 by guez, Thu Mar 6 15:12:00 2014 UTC revision 104 by guez, Thu Sep 4 10:05:52 2014 UTC
# Line 23  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 23  SUBROUTINE initfluxsto(tstep, t_ops, t_w
23    
24    !   L. Fairhead, 03/99                                                !   L. Fairhead, 03/99                                            
25    
26    USE calendar    USE comconst
27      USE comgeom
28      use conf_gcm_m
29      USE dimens_m
30      USE disvert_m
31    USE histbeg_totreg_m, ONLY : histbeg_totreg    USE histbeg_totreg_m, ONLY : histbeg_totreg
32    USE histdef_m, ONLY : histdef    USE histdef_m, ONLY : histdef
33    USE histend_m, ONLY : histend    USE histend_m, ONLY : histend
34    use histhori_regular_m, only: histhori_regular    use histhori_regular_m, only: histhori_regular
35    use histsync_m, only: histsync    use histsync_m, only: histsync
36    USE histvert_m, ONLY : histvert    USE histvert_m, ONLY : histvert
37    USE dimens_m    USE nr_util, ONLY : pi
38    USE paramet_m    USE paramet_m
   USE comconst  
   USE disvert_m  
   use conf_gcm_m  
   USE comgeom  
39    USE serre    USE serre
40    USE temps, ONLY : annee_ref, day_ref, itau_dyn    USE temps, ONLY : annee_ref, day_ref, itau_dyn
41    USE ener    use ymds2ju_m, only: ymds2ju
   USE nr_util, ONLY : pi  
42    
43    IMPLICIT NONE    IMPLICIT NONE
44    
Legend:
Removed from v.83  
changed lines
  Added in v.104
  ViewVC Help
Powered by ViewVC 1.1.21