/[lmdze]/trunk/phylmd/ini_histins.f
ViewVC logotype

Diff of /trunk/phylmd/ini_histins.f

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

revision 297 by guez, Fri Jul 20 14:30:23 2018 UTC revision 298 by guez, Thu Jul 26 16:45:51 2018 UTC
# Line 6  module ini_histins_m Line 6  module ini_histins_m
6    
7  contains  contains
8    
9    subroutine ini_histins(dtime, ok_newmicro)    subroutine ini_histins(ok_newmicro)
10    
11      ! From phylmd/ini_histins.h, version 1.2, 2005/05/25 13:10:09      ! From phylmd/ini_histins.h, version 1.2, 2005/05/25 13:10:09
12    
13      use clesphys, only: ecrit_ins, ok_instan      use clesphys, only: ecrit_ins, ok_instan
14      use clesphys2, only: conv_emanuel      use clesphys2, only: conv_emanuel
15        use comconst, only: dtphys
16      use dimensions, only: iim, jjm, llm, nqmx      use dimensions, only: iim, jjm, llm, nqmx
17      use disvert_m, only: presnivs      use disvert_m, only: presnivs
18      use dynetat0_m, only: day_ref, annee_ref, rlatu, rlonv      use dynetat0_m, only: day_ref, annee_ref, rlatu, rlonv
# Line 25  contains Line 26  contains
26      use phyetat0_m, only: itau_phy      use phyetat0_m, only: itau_phy
27      USE ymds2ju_m, only: ymds2ju      USE ymds2ju_m, only: ymds2ju
28    
     REAL, intent(in):: dtime ! pas temporel de la physique (s)  
29      logical, intent(in):: ok_newmicro      logical, intent(in):: ok_newmicro
30            
31      ! Local:      ! Local:
# Line 37  contains Line 37  contains
37      print *, 'Call sequence information: ini_histins'      print *, 'Call sequence information: ini_histins'
38    
39      test_ok_instan: IF (ok_instan) THEN      test_ok_instan: IF (ok_instan) THEN
40         zsto = dtime * ecrit_ins         zsto = dtphys * ecrit_ins
41         zout = dtime * ecrit_ins         zout = dtphys * ecrit_ins
42         CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)         CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
43         CALL histbeg_totreg("histins", rlonv(:iim) / pi * 180., &         CALL histbeg_totreg("histins", rlonv(:iim) / pi * 180., &
44              rlatu / pi * 180., 1, iim, &              rlatu / pi * 180., 1, iim, &
45              1, jjm + 1, itau_phy, zjulian, dtime, nhori, nid_ins)              1, jjm + 1, itau_phy, zjulian, dtphys, nhori, nid_ins)
46         print *, 'itau_phy = ', itau_phy         print *, 'itau_phy = ', itau_phy
47         print *, "zjulian = ", zjulian         print *, "zjulian = ", zjulian
48         CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", &         CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", &
Legend:
Removed from v.297  
changed lines
  Added in v.298
  ViewVC Help
Powered by ViewVC 1.1.21