Go to the source code of this file.
|
!$Id ***************************************!ECRITURE DU pphis CALL | histwrite_phy (nid_tra,.FALSE.,"aire", itau_w, airephy) CALL histwrite_phy(nid_tra |
|
!$Id ***************************************!ECRITURE DU pphis CALL zmasse!RomP CALL | histwrite_phy (nid_tra,.FALSE.,"sourceBE", itau_w, sourceBE)!RomP<<< !TRACEURS!----------------DO it |
|
|
!$Id ***************************************!ECRITURE DU | FICHIER |
|
!$Id ***************************************!ECRITURE DU | FALSE |
|
!$Id ***************************************!ECRITURE DU | phis |
|
!$Id ***************************************!ECRITURE DU | itau_w |
|
!$Id ***************************************!ECRITURE DU pphis CALL | zmasse |
|
!$Id*************************************** ! ECRITURE DU pphis CALL histwrite_phy |
( |
nid_tra |
, |
|
|
. |
FALSE., |
|
|
"aire" |
, |
|
|
itau_w |
, |
|
|
airephy |
|
|
) |
| |
!$Id*************************************** ! ECRITURE DU pphis CALL zmasse ! RomP CALL histwrite_phy |
( |
nid_tra |
, |
|
|
. |
FALSE., |
|
|
"sourceBE" |
, |
|
|
itau_w |
, |
|
|
sourceBE |
|
|
) |
| |
!$Id ***************************************!ECRITURE DU pphis CALL FALSE |
!$Id*************************************** ! ECRITURE DU FICHIER |
!$Id*************************************** ! ECRITURE DU pphis CALL itau_w |
!$Id*************************************** ! ECRITURE DU phis |
!$Id*************************************** ! ECRITURE DU pphis CALL zmasse |