35 |
|
|
36 |
print *, 'Call sequence information: ini_histins' |
print *, 'Call sequence information: ini_histins' |
37 |
|
|
38 |
IF (ok_instan) THEN |
test_ok_instan: IF (ok_instan) THEN |
39 |
zsto = dtime * ecrit_ins |
zsto = dtime * ecrit_ins |
40 |
zout = dtime * ecrit_ins |
zout = dtime * ecrit_ins |
41 |
CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian) |
CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian) |
129 |
CALL histdef(nid_ins, "dtsvdfi", "Boundary-layer dTs(g)", "K/s", & |
CALL histdef(nid_ins, "dtsvdfi", "Boundary-layer dTs(g)", "K/s", & |
130 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
131 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
132 |
|
CALL histdef(nid_ins, "msnow", "surface snow amount", "kg/m2", & |
133 |
|
iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
134 |
|
|
135 |
DO nsrf = 1, nbsrf |
DO nsrf = 1, nbsrf |
136 |
call histdef(nid_ins, "pourc_"//clnsurf(nsrf), & |
call histdef(nid_ins, "pourc_"//clnsurf(nsrf), & |
281 |
ENDDO |
ENDDO |
282 |
|
|
283 |
CALL histend(nid_ins) |
CALL histend(nid_ins) |
284 |
ENDIF |
ENDIF test_ok_instan |
285 |
|
|
286 |
end subroutine ini_histins |
end subroutine ini_histins |
287 |
|
|