/[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 31 by guez, Thu Apr 1 14:59:19 2010 UTC trunk/bibio/initfluxsto.f revision 83 by guez, Thu Mar 6 15:12:00 2014 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
41    USE ener    USE ener
42      USE nr_util, ONLY : pi
43    
44    IMPLICIT NONE    IMPLICIT NONE
45    
# Line 52  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    
65    !---------------------------------------------------------    !---------------------------------------------------------
66    
67    !  Initialisations                                                          !  Initialisations                                                      
   
   pi = 4.*atan(1.)  
68    str = 'q  '    str = 'q  '
69    ctrac = 'traceur   '    ctrac = 'traceur   '
70    ok_sync = .TRUE.    ok_sync = .TRUE.
# Line 112  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.31  
changed lines
  Added in v.83
  ViewVC Help
Powered by ViewVC 1.1.21