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

Diff of /trunk/phylmd/initphysto.f

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

revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC revision 67 by guez, Tue Oct 2 15:50:56 2012 UTC
# Line 26  SUBROUTINE initphysto(infile,rlon,rlat,t Line 26  SUBROUTINE initphysto(infile,rlon,rlat,t
26    !   L. Fairhead, 03/99    !   L. Fairhead, 03/99
27    
28    USE calendar    USE calendar
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 temps
43    USE ener    USE ener
44      USE nr_util, ONLY : pi
45    
46    IMPLICIT NONE    IMPLICIT NONE
47    
# Line 67  SUBROUTINE initphysto(infile,rlon,rlat,t Line 72  SUBROUTINE initphysto(infile,rlon,rlat,t
72    !-----------------------------------------------------    !-----------------------------------------------------
73    
74    !  Initialisations    !  Initialisations
   
   pi = 4.*atan(1.)  
75    str = 'q  '    str = 'q  '
76    ctrac = 'traceur   '    ctrac = 'traceur   '
77    ok_sync = .TRUE.    ok_sync = .TRUE.
# Line 98  SUBROUTINE initphysto(infile,rlon,rlat,t Line 101  SUBROUTINE initphysto(infile,rlon,rlat,t
101       nivsigs(l) = float(l)       nivsigs(l) = float(l)
102    END DO    END DO
103    
104    CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',llm,nivsigs, &    CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',nivsigs, &
105         zvertiid)         zvertiid)
106    
107    !  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.67
  ViewVC Help
Powered by ViewVC 1.1.21