/[lmdze]/trunk/Sources/dyn3d/initfluxsto.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/initfluxsto.f

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

revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC revision 67 by guez, Tue Oct 2 15:50:56 2012 UTC
# Line 33  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 33  SUBROUTINE initfluxsto(tstep, t_ops, t_w
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 conf_gcm_m    use conf_gcm_m
38    USE comgeom    USE comgeom
39    USE serre    USE serre
# Line 116  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.61  
changed lines
  Added in v.67
  ViewVC Help
Powered by ViewVC 1.1.21