/[lmdze]/trunk/bibio/initfluxsto.f
ViewVC logotype

Diff of /trunk/bibio/initfluxsto.f

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

revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC revision 67 by guez, Tue Oct 2 15:50:56 2012 UTC
# Line 24  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 24  SUBROUTINE initfluxsto(tstep, t_ops, t_w
24    !   L. Fairhead, 03/99                                                !   L. Fairhead, 03/99                                            
25    
26    USE calendar    USE calendar
27    USE histcom    USE histbeg_totreg_m, ONLY : histbeg_totreg
28      USE histdef_m, ONLY : histdef
29      USE histend_m, ONLY : histend
30      use histhori_regular_m, only: histhori_regular
31      use histsync_m, only: histsync
32      USE histvert_m, ONLY : histvert
33    USE dimens_m    USE dimens_m
34    USE paramet_m    USE paramet_m
35    USE comconst    USE comconst
36    USE comvert    USE disvert_m
37    USE logic    use conf_gcm_m
38    USE comgeom    USE comgeom
39    USE serre    USE serre
40    USE temps, ONLY : annee_ref, day_ref, itau_dyn    USE temps, ONLY : annee_ref, day_ref, itau_dyn
# Line 111  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 116  SUBROUTINE initfluxsto(tstep, t_ops, t_w
116    
117    !  Appel a histvert pour la grille verticale                                !  Appel a histvert pour la grille verticale                            
118    
119    CALL histvert(fileid, 'sig_s', 'Niveaux sigma', 'sigma_level', llm, &    CALL histvert(fileid, 'sig_s', 'Niveaux sigma', 'sigma_level', nivsigs, &
120         nivsigs, zvertiid)         zvertiid)
121    ! Pour le fichier V                                                        ! Pour le fichier V                                                    
122    CALL histvert(filevid, 'sig_s', 'Niveaux sigma', 'sigma_level', llm, &    CALL histvert(filevid, 'sig_s', 'Niveaux sigma', 'sigma_level', nivsigs, &
123         nivsigs, zvertiid)         zvertiid)
124    ! pour le fichier def                                                      ! pour le fichier def                                                  
125    nivd(1) = 1    nivd(1) = 1
126    CALL histvert(filedid, 'sig_s', 'Niveaux sigma', 'sigma_level', 1, nivd, &    CALL histvert(filedid, 'sig_s', 'Niveaux sigma', 'sigma_level', nivd, &
127         dvertiid)         dvertiid)
128    
129    !  Appels a histdef pour la definition des variables a sauvegarder          !  Appels a histdef pour la definition des variables a sauvegarder      
Legend:
Removed from v.39  
changed lines
  Added in v.67
  ViewVC Help
Powered by ViewVC 1.1.21