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

Diff of /trunk/phylmd/initphysto.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/phylmd/initphysto.f90 revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC trunk/phylmd/initphysto.f 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 calendar    use dynetat0_m, only: day_ref, annee_ref
29    USE histcom    USE histbeg_totreg_m, ONLY : histbeg_totreg
30      USE histdef_m, ONLY : histdef
31      USE histend_m, ONLY : histend
32      use histsync_m, only: histsync
33      USE histvert_m, ONLY : histvert
34    USE dimens_m    USE dimens_m
35    USE paramet_m    USE paramet_m
36    USE comconst    USE comconst
37    USE indicesol    USE indicesol
38    USE dimphy    USE dimphy
39    USE logic    use conf_gcm_m
40    USE comgeom    USE comgeom
41    USE serre    USE serre
42    USE temps    USE nr_util, ONLY : pi
43    USE ener    USE ymds2ju_m
44    
45    IMPLICIT NONE    IMPLICIT NONE
46    
47    !   Arguments    !   Arguments
48    CHARACTER*(*) infile    CHARACTER(len=*) infile
49    INTEGER nhoriid, i    INTEGER nhoriid, i
50    REAL, INTENT (IN) :: tstep    REAL, INTENT (IN) :: tstep
51    REAL t_ops, t_wrt    REAL t_ops, t_wrt
# Line 53  SUBROUTINE initphysto(infile,rlon,rlat,t Line 57  SUBROUTINE initphysto(infile,rlon,rlat,t
57    
58    INTEGER tau0    INTEGER tau0
59    REAL zjulian    REAL zjulian
60    CHARACTER*3 str    CHARACTER(len=3) str
61    CHARACTER*10 ctrac    CHARACTER(len=10) ctrac
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 67  SUBROUTINE initphysto(infile,rlon,rlat,t Line 70  SUBROUTINE initphysto(infile,rlon,rlat,t
70    !-----------------------------------------------------    !-----------------------------------------------------
71    
72    !  Initialisations    !  Initialisations
   
   pi = 4.*atan(1.)  
73    str = 'q  '    str = 'q  '
74    ctrac = 'traceur   '    ctrac = 'traceur   '
75    ok_sync = .TRUE.    ok_sync = .TRUE.
# Line 76  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)
# Line 98  SUBROUTINE initphysto(infile,rlon,rlat,t Line 97  SUBROUTINE initphysto(infile,rlon,rlat,t
97       nivsigs(l) = float(l)       nivsigs(l) = float(l)
98    END DO    END DO
99    
100    CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',llm,nivsigs, &    CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',nivsigs, &
101         zvertiid)         zvertiid)
102    
103    !  Appels a histdef pour la definition des variables a sauvegarder    !  Appels a histdef pour la definition des variables a sauvegarder
Legend:
Removed from v.31  
changed lines
  Added in v.129
  ViewVC Help
Powered by ViewVC 1.1.21