/[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 92 by guez, Wed Mar 26 18:16:05 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 ener
32    USE histbeg_totreg_m, ONLY : histbeg_totreg    USE histbeg_totreg_m, ONLY : histbeg_totreg
33    USE histdef_m, ONLY : histdef    USE histdef_m, ONLY : histdef
34    USE histend_m, ONLY : histend    USE histend_m, ONLY : histend
35    use histhori_regular_m, only: histhori_regular    use histhori_regular_m, only: histhori_regular
36    use histsync_m, only: histsync    use histsync_m, only: histsync
37    USE histvert_m, ONLY : histvert    USE histvert_m, ONLY : histvert
38    USE dimens_m    USE nr_util, ONLY : pi
39    USE paramet_m    USE paramet_m
   USE comconst  
   USE disvert_m  
   use conf_gcm_m  
   USE comgeom  
40    USE serre    USE serre
41    USE temps, ONLY : annee_ref, day_ref, itau_dyn    USE temps, ONLY : annee_ref, day_ref, itau_dyn
42    USE ener    use ymds2ju_m, only: ymds2ju
   USE nr_util, ONLY : pi  
43    
44    IMPLICIT NONE    IMPLICIT NONE
45    
Legend:
Removed from v.83  
changed lines
  Added in v.92
  ViewVC Help
Powered by ViewVC 1.1.21