/[lmdze]/trunk/Sources/phylmd/initphysto.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/initphysto.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 25  SUBROUTINE initphysto(infile,rlon,rlat,t Line 25  SUBROUTINE initphysto(infile,rlon,rlat,t
25    
26    !   L. Fairhead, 03/99    !   L. Fairhead, 03/99
27    
28      use dynetat0_m, only: day_ref, annee_ref
29    USE histbeg_totreg_m, ONLY : histbeg_totreg    USE histbeg_totreg_m, ONLY : histbeg_totreg
30    USE histdef_m, ONLY : histdef    USE histdef_m, ONLY : histdef
31    USE histend_m, ONLY : histend    USE histend_m, ONLY : histend
# Line 38  SUBROUTINE initphysto(infile,rlon,rlat,t Line 39  SUBROUTINE initphysto(infile,rlon,rlat,t
39    use conf_gcm_m    use conf_gcm_m
40    USE comgeom    USE comgeom
41    USE serre    USE serre
   USE temps  
42    USE nr_util, ONLY : pi    USE nr_util, ONLY : pi
43    USE ymds2ju_m    USE ymds2ju_m
44    
# Line 62  SUBROUTINE initphysto(infile,rlon,rlat,t Line 62  SUBROUTINE initphysto(infile,rlon,rlat,t
62    INTEGER iq    INTEGER iq
63    INTEGER uhoriid, vhoriid, thoriid, zvertiid    INTEGER uhoriid, vhoriid, thoriid, zvertiid
64    INTEGER ii, jj    INTEGER ii, jj
   INTEGER zan, idayref  
65    LOGICAL ok_sync    LOGICAL ok_sync
66    REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)    REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)
67    
# Line 78  SUBROUTINE initphysto(infile,rlon,rlat,t Line 77  SUBROUTINE initphysto(infile,rlon,rlat,t
77    !  Appel a histbeg: creation du fichier netcdf et initialisations    !  Appel a histbeg: creation du fichier netcdf et initialisations
78    !     diverses    !     diverses
79    
80    zan = annee_ref    CALL ymds2ju(annee_ref,1,day_ref,0.0,zjulian)
   idayref = day_ref  
   CALL ymds2ju(zan,1,idayref,0.0,zjulian)  
81    tau0 = 0    tau0 = 0
82    
83    CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlon,zx_lon)    CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlon,zx_lon)
Legend:
Removed from v.108  
changed lines
  Added in v.129
  ViewVC Help
Powered by ViewVC 1.1.21