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 |
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: |
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", & |