/[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 108 by guez, Tue Sep 16 14:00:41 2014 UTC revision 129 by guez, Fri Feb 13 18:22:38 2015 UTC
# Line 28  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 28  SUBROUTINE initfluxsto(tstep, t_ops, t_w
28    use conf_gcm_m    use conf_gcm_m
29    USE dimens_m    USE dimens_m
30    USE disvert_m    USE disvert_m
31      use dynetat0_m, only: day_ref, annee_ref
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
# Line 37  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 38  SUBROUTINE initfluxsto(tstep, t_ops, t_w
38    USE nr_util, ONLY : pi    USE nr_util, ONLY : pi
39    USE paramet_m    USE paramet_m
40    USE serre    USE serre
41    USE temps, ONLY : annee_ref, day_ref, itau_dyn    USE temps, ONLY : itau_dyn
42    use ymds2ju_m, only: ymds2ju    use ymds2ju_m, only: ymds2ju
43    
44    IMPLICIT NONE    IMPLICIT NONE
# Line 58  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 59  SUBROUTINE initfluxsto(tstep, t_ops, t_w
59    REAL rlong(iip1, jjp1), rlat(iip1, jjp1)    REAL rlong(iip1, jjp1), rlat(iip1, jjp1)
60    INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid    INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid
61    INTEGER ii, jj, l    INTEGER ii, jj, l
   INTEGER zan, idayref  
62    LOGICAL ok_sync    LOGICAL ok_sync
63    
64    !---------------------------------------------------------    !---------------------------------------------------------
# Line 70  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 70  SUBROUTINE initfluxsto(tstep, t_ops, t_w
70    
71    !  Appel a histbeg: creation du fichier netcdf et initialisations diverses    !  Appel a histbeg: creation du fichier netcdf et initialisations diverses
72    
73    zan = annee_ref    CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
   idayref = day_ref  
   CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)  
74    
75    DO jj = 1, jjp1    DO jj = 1, jjp1
76       DO ii = 1, iip1       DO ii = 1, iip1
Legend:
Removed from v.108  
changed lines
  Added in v.129
  ViewVC Help
Powered by ViewVC 1.1.21