#include "dimensions.h"
#include "paramet.h"
#include "temps.h"
#include "comconst.h"
#include "comvert.h"
#include "comgeom2.h"
#include "ener.h"
#include "netcdf.inc"
#include "description.h"
#include "serre.h"
#include "logic.h"
#include "iniprint.h"
Go to the source code of this file.
|
subroutine | dynetat0 (fichnom, vcov, ucov, teta, q, masse, ps, phis, time) |
|
subroutine dynetat0 |
( |
character*(*) |
fichnom, |
|
|
real, dimension(iip1, jjm,llm) |
vcov, |
|
|
real, dimension(iip1, jjp1,llm) |
ucov, |
|
|
real, dimension(iip1, jjp1,llm) |
teta, |
|
|
real, dimension(iip1,jjp1,llm,nqtot) |
q, |
|
|
real, dimension(iip1, jjp1,llm) |
masse, |
|
|
real, dimension(iip1, jjp1) |
ps, |
|
|
real, dimension(iip1, jjp1) |
phis, |
|
|
real |
time |
|
) |
| |