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

trunk/libf/bibio/initfluxsto.f90 revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC trunk/bibio/initfluxsto.f revision 83 by guez, Thu Mar 6 15:12:00 2014 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 58  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 58  SUBROUTINE initfluxsto(tstep, t_ops, t_w
58    INTEGER iq    INTEGER iq
59    REAL rlong(iip1, jjp1), rlat(iip1, jjp1)    REAL rlong(iip1, jjp1), rlat(iip1, jjp1)
60    INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid    INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid
61    INTEGER ii, jj    INTEGER ii, jj, l
62    INTEGER zan, idayref    INTEGER zan, idayref
63    LOGICAL ok_sync    LOGICAL ok_sync
64    
# 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', &
120         nivsigs, zvertiid)         (/(real(l), l = 1, llm)/), 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', &
123         nivsigs, zvertiid)         (/(real(l), l = 1, llm)/), 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.83
  ViewVC Help
Powered by ViewVC 1.1.21