/[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 66 by guez, Thu Sep 20 13:00:41 2012 UTC trunk/bibio/initfluxsto.f revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC
# Line 23  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 23  SUBROUTINE initfluxsto(tstep, t_ops, t_w
23    
24    !   L. Fairhead, 03/99                                                !   L. Fairhead, 03/99                                            
25    
26    USE calendar    USE comconst
27      USE comgeom
28      use conf_gcm_m
29      USE dimens_m
30      USE disvert_m
31    USE histbeg_totreg_m, ONLY : histbeg_totreg    USE histbeg_totreg_m, ONLY : histbeg_totreg
32    USE histdef_m, ONLY : histdef    USE histdef_m, ONLY : histdef
33    USE histend_m, ONLY : histend    USE histend_m, ONLY : histend
34    use histhori_regular_m, only: histhori_regular    use histhori_regular_m, only: histhori_regular
35    use histsync_m, only: histsync    use histsync_m, only: histsync
36    USE histvert_m, ONLY : histvert    USE histvert_m, ONLY : histvert
37    USE dimens_m    USE nr_util, ONLY : pi
38    USE paramet_m    USE paramet_m
   USE comconst  
   USE disvert_m  
   use conf_gcm_m  
   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 ymds2ju_m, only: ymds2ju
   USE nr_util, ONLY : pi  
42    
43    IMPLICIT NONE    IMPLICIT NONE
44    
# Line 53  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 52  SUBROUTINE initfluxsto(tstep, t_ops, t_w
52    
53    !   Variables locales                                                      !   Variables locales                                                  
54    REAL zjulian    REAL zjulian
55    CHARACTER*3 str    CHARACTER(len=3) str
56    CHARACTER*10 ctrac    CHARACTER(len=10) ctrac
57    INTEGER iq    INTEGER iq
58    REAL rlong(iip1, jjp1), rlat(iip1, jjp1)    REAL rlong(iip1, jjp1), rlat(iip1, jjp1)
59    INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid    INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid
60    INTEGER ii, jj    INTEGER ii, jj, l
61    INTEGER zan, idayref    INTEGER zan, idayref
62    LOGICAL ok_sync    LOGICAL ok_sync
63    
# Line 116  SUBROUTINE initfluxsto(tstep, t_ops, t_w Line 115  SUBROUTINE initfluxsto(tstep, t_ops, t_w
115    
116    !  Appel a histvert pour la grille verticale                                !  Appel a histvert pour la grille verticale                            
117    
118    CALL histvert(fileid, 'sig_s', 'Niveaux sigma', 'sigma_level', llm, &    CALL histvert(fileid, 'sig_s', 'Niveaux sigma', 'sigma_level', &
119         nivsigs, zvertiid)         (/(real(l), l = 1, llm)/), zvertiid)
120    ! Pour le fichier V                                                        ! Pour le fichier V                                                    
121    CALL histvert(filevid, 'sig_s', 'Niveaux sigma', 'sigma_level', llm, &    CALL histvert(filevid, 'sig_s', 'Niveaux sigma', 'sigma_level', &
122         nivsigs, zvertiid)         (/(real(l), l = 1, llm)/), zvertiid)
123    ! pour le fichier def                                                      ! pour le fichier def                                                  
124    nivd(1) = 1    nivd(1) = 1
125    CALL histvert(filedid, 'sig_s', 'Niveaux sigma', 'sigma_level', 1, nivd, &    CALL histvert(filedid, 'sig_s', 'Niveaux sigma', 'sigma_level', nivd, &
126         dvertiid)         dvertiid)
127    
128    !  Appels a histdef pour la definition des variables a sauvegarder          !  Appels a histdef pour la definition des variables a sauvegarder      
Legend:
Removed from v.66  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.21