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

Diff of /trunk/phylmd/ini_histins.f90

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

revision 334 by guez, Thu Jun 13 14:40:06 2019 UTC revision 335 by guez, Thu Sep 12 21:22:46 2019 UTC
# Line 30  contains Line 30  contains
30      logical, intent(in):: ok_newmicro      logical, intent(in):: ok_newmicro
31            
32      ! Local:      ! Local:
33      real zjulian, zsto, zout      double precision julian
34        real zsto, zout
35      integer nhori, nvert, nsrf, iq, it      integer nhori, nvert, nsrf, iq, it
36    
37      !-------------------------------------------------------------------      !-------------------------------------------------------------------
# Line 40  contains Line 41  contains
41      test_ok_instan: IF (ok_instan) THEN      test_ok_instan: IF (ok_instan) THEN
42         zsto = dtphys * ecrit_ins         zsto = dtphys * ecrit_ins
43         zout = dtphys * ecrit_ins         zout = dtphys * ecrit_ins
44         CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)         CALL ymds2ju(annee_ref, 1, day_ref, 0.0, julian)
45         CALL histbeg_totreg("histins", rlonv(:iim) / pi * 180., &         CALL histbeg_totreg("histins", rlonv(:iim) / pi * 180., &
46              rlatu / pi * 180., 1, iim, &              rlatu / pi * 180., 1, iim, &
47              1, jjm + 1, itau_phy, zjulian, dtphys, nhori, nid_ins)              1, jjm + 1, itau_phy, julian, dtphys, nhori, nid_ins)
48         print *, 'itau_phy = ', itau_phy         print *, 'itau_phy = ', itau_phy
49         print *, "zjulian = ", zjulian         print *, "julian = ", julian
50         CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", &         CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb", &
51              presnivs/100., nvert)              presnivs/100., nvert)
52                
Legend:
Removed from v.334  
changed lines
  Added in v.335
  ViewVC Help
Powered by ViewVC 1.1.21