/[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 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 83 by guez, Thu Mar 6 15:12:00 2014 UTC
# 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', nivsigs, &    CALL histvert(fileid, 'sig_s', 'Niveaux sigma', 'sigma_level', &
120         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', nivsigs, &    CALL histvert(filevid, 'sig_s', 'Niveaux sigma', 'sigma_level', &
123         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', nivd, &    CALL histvert(filedid, 'sig_s', 'Niveaux sigma', 'sigma_level', nivd, &
Legend:
Removed from v.82  
changed lines
  Added in v.83
  ViewVC Help
Powered by ViewVC 1.1.21