4 |
subroutine writedynav( histid, nq, time, vcov, |
subroutine writedynav( histid, nq, time, vcov, |
5 |
, ucov,teta,ppk,phi,q,masse,ps,phis) |
, ucov,teta,ppk,phi,q,masse,ps,phis) |
6 |
|
|
|
USE ioipsl |
|
7 |
C |
C |
8 |
C Ecriture du fichier histoire au format IOIPSL |
C Ecriture du fichier histoire au format IOIPSL |
9 |
C |
C |
30 |
C ===================================================================== |
C ===================================================================== |
31 |
C |
C |
32 |
C Declarations |
C Declarations |
33 |
|
USE histwrite_m |
34 |
|
use histcom |
35 |
use dimens_m |
use dimens_m |
36 |
use paramet_m |
use paramet_m |
37 |
use comconst |
use comconst |