/[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

trunk/libf/phylmd/initphysto.f90 revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC trunk/Sources/phylmd/initphysto.f revision 151 by guez, Tue Jun 23 15:14:20 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 calendar    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 38  SUBROUTINE initphysto(infile,rlon,rlat,t
38    USE dimphy    USE dimphy
39    use conf_gcm_m    use conf_gcm_m
40    USE comgeom    USE comgeom
   USE serre  
   USE temps  
   USE ener  
41    USE nr_util, ONLY : pi    USE nr_util, ONLY : pi
42      USE ymds2ju_m
43    
44    IMPLICIT NONE    IMPLICIT NONE
45    
46    !   Arguments    !   Arguments
47    CHARACTER*(*) infile    CHARACTER(len=*) infile
48    INTEGER nhoriid, i    INTEGER nhoriid, i
49    REAL, INTENT (IN) :: tstep    REAL, INTENT (IN) :: tstep
50    REAL t_ops, t_wrt    REAL t_ops, t_wrt
51    INTEGER fileid, filevid    INTEGER fileid
52    INTEGER nq, l    INTEGER nq, l
53    REAL nivsigs(llm)    REAL nivsigs(llm)
54    
# Line 58  SUBROUTINE initphysto(infile,rlon,rlat,t Line 56  SUBROUTINE initphysto(infile,rlon,rlat,t
56    
57    INTEGER tau0    INTEGER tau0
58    REAL zjulian    REAL zjulian
59    CHARACTER*3 str    CHARACTER(len=3) str
60    CHARACTER*10 ctrac    CHARACTER(len=10) ctrac
   INTEGER iq  
61    INTEGER uhoriid, vhoriid, thoriid, zvertiid    INTEGER uhoriid, vhoriid, thoriid, zvertiid
   INTEGER ii, jj  
   INTEGER zan, idayref  
62    LOGICAL ok_sync    LOGICAL ok_sync
63    REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)    REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)
64    
# Line 79  SUBROUTINE initphysto(infile,rlon,rlat,t Line 74  SUBROUTINE initphysto(infile,rlon,rlat,t
74    !  Appel a histbeg: creation du fichier netcdf et initialisations    !  Appel a histbeg: creation du fichier netcdf et initialisations
75    !     diverses    !     diverses
76    
77    zan = annee_ref    CALL ymds2ju(annee_ref,1,day_ref,0.0,zjulian)
   idayref = day_ref  
   CALL ymds2ju(zan,1,idayref,0.0,zjulian)  
78    tau0 = 0    tau0 = 0
79    
80    CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlon,zx_lon)    CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlon,zx_lon)
# Line 101  SUBROUTINE initphysto(infile,rlon,rlat,t Line 94  SUBROUTINE initphysto(infile,rlon,rlat,t
94       nivsigs(l) = float(l)       nivsigs(l) = float(l)
95    END DO    END DO
96    
97    CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',llm,nivsigs, &    CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',nivsigs, &
98         zvertiid)         zvertiid)
99    
100    !  Appels a histdef pour la definition des variables a sauvegarder    !  Appels a histdef pour la definition des variables a sauvegarder
Legend:
Removed from v.61  
changed lines
  Added in v.151
  ViewVC Help
Powered by ViewVC 1.1.21