/[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 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 139 by guez, Tue May 26 17:46:03 2015 UTC
# Line 24  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 24  SUBROUTINE initfluxsto(tstep, t_ops, t_w
24    !   L. Fairhead, 03/99                                                !   L. Fairhead, 03/99                                            
25    
26    USE comconst    USE comconst
   USE comgeom  
27    use conf_gcm_m    use conf_gcm_m
28    USE dimens_m    USE dimens_m
29    USE disvert_m    USE disvert_m
30    use dynetat0_m, only: day_ref, annee_ref    use dynetat0_m, only: day_ref, annee_ref, rlonu, rlatu, rlonv, rlatv
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
# Line 37  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 36  SUBROUTINE initfluxsto(tstep, t_ops, t_w
36    USE histvert_m, ONLY : histvert    USE histvert_m, ONLY : histvert
37    USE nr_util, ONLY : pi    USE nr_util, ONLY : pi
38    USE paramet_m    USE paramet_m
   USE serre  
39    USE temps, ONLY : itau_dyn    USE temps, ONLY : itau_dyn
40    use ymds2ju_m, only: ymds2ju    use ymds2ju_m, only: ymds2ju
41    
Legend:
Removed from v.134  
changed lines
  Added in v.139
  ViewVC Help
Powered by ViewVC 1.1.21