13 |
|
|
14 |
contains |
contains |
15 |
|
|
16 |
SUBROUTINE etat0 |
SUBROUTINE etat0(phis) |
17 |
|
|
18 |
! From "etat0_netcdf.F", version 1.3, 2005/05/25 13:10:09 |
! From "etat0_netcdf.F", version 1.3, 2005/05/25 13:10:09 |
19 |
|
|
54 |
use temps, only: itau_phy, annee_ref, day_ref |
use temps, only: itau_phy, annee_ref, day_ref |
55 |
use test_disvert_m, only: test_disvert |
use test_disvert_m, only: test_disvert |
56 |
|
|
57 |
! Variables local to the procedure: |
REAL, intent(out):: phis(:, :) ! (iim + 1, jjm + 1) |
58 |
|
! surface geopotential, in m2 s-2 |
59 |
|
|
60 |
|
! Local: |
61 |
|
|
62 |
REAL latfi(klon), lonfi(klon) |
REAL latfi(klon), lonfi(klon) |
63 |
! (latitude and longitude of a point of the scalar grid identified |
! (latitude and longitude of a point of the scalar grid identified |
83 |
real seaice(klon) ! kg m-2 |
real seaice(klon) ! kg m-2 |
84 |
REAL frugs(klon, nbsrf), agesno(klon, nbsrf) |
REAL frugs(klon, nbsrf), agesno(klon, nbsrf) |
85 |
REAL rugmer(klon) |
REAL rugmer(klon) |
|
REAL phis(iim + 1, jjm + 1) ! surface geopotential, in m2 s-2 |
|
86 |
real, dimension(iim + 1, jjm + 1):: zmea_2d, zstd_2d, zsig_2d, zgam_2d |
real, dimension(iim + 1, jjm + 1):: zmea_2d, zstd_2d, zsig_2d, zgam_2d |
87 |
real, dimension(iim + 1, jjm + 1):: zthe_2d, zpic_2d, zval_2d |
real, dimension(iim + 1, jjm + 1):: zthe_2d, zpic_2d, zval_2d |
88 |
real, dimension(iim + 1, jjm + 1):: tsol_2d, qsol_2d, ps |
real, dimension(iim + 1, jjm + 1):: tsol_2d, qsol_2d, ps |