Go to the source code of this file.
|
!$Id | !IF (ecrit_tra >0.) THEN!$OMP MASTER!!!CALL ymds2ju(annee_ref |
|
!$Id zjulian!correction pour l heure initiale!jyg!jyg CALL | ymds2ju (annee_ref, 1, day_ref, hour, zjulian)!jyg CALL histbeg_phy("histrac" |
|
!$Id zjulian!correction pour l heure initiale!jyg!jyg CALL nid_tra CALL | histvert (nid_tra,"presnivs","Vertical levels","Pa", klev, presnivs, nvert,"down") zsto |
|
|
!$Id | day_ref |
|
!$Id zjulian!correction pour l heure initiale!jyg!jyg CALL | itau_phy |
|
!$Id zjulian!correction pour l heure initiale!jyg!jyg CALL | zjulian |
|
!$Id zjulian!correction pour l heure initiale!jyg!jyg CALL | pdtphys |
|
!$Id zjulian!correction pour l heure initiale!jyg!jyg CALL | nhori |
|
! $Id !IF |
( |
ecrit_tra |
, |
|
|
0. |
|
|
) |
| |
! $Id zjulian ! correction pour l heure initiale !jyg !jyg CALL nid_tra CALL histvert |
( |
nid_tra |
, |
|
|
"presnivs" |
, |
|
|
"Vertical levels" |
, |
|
|
"Pa" |
, |
|
|
klev |
, |
|
|
presnivs |
, |
|
|
nvert |
, |
|
|
"down" |
|
|
) |
| |
! $Id zjulian ! correction pour l heure initiale !jyg !jyg CALL itau_phy |
! $Id zjulian ! correction pour l heure initiale !jyg !jyg CALL nhori |
! $Id zjulian ! correction pour l heure initiale !jyg !jyg CALL pdtphys |
! $Id zjulian ! correction pour l heure initiale !jyg !jyg CALL zjulian |