7 |
SUBROUTINE dynredem0(fichnom, iday_end, phis) |
SUBROUTINE dynredem0(fichnom, iday_end, phis) |
8 |
|
|
9 |
! From dyn3d/dynredem.F, v 1.2 2004/06/22 11:45:30 |
! From dyn3d/dynredem.F, v 1.2 2004/06/22 11:45:30 |
|
|
|
10 |
! Ecriture du fichier de redémarrage au format NetCDF (initialisation) |
! Ecriture du fichier de redémarrage au format NetCDF (initialisation) |
11 |
|
|
12 |
USE IOIPSL, only: ymds2ju, ju2ymds |
USE IOIPSL, only: ymds2ju, ju2ymds |
13 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm, nqmx |
14 |
use paramet_m, only: ip1jmp1, iip1, jjp1, llmp1 |
use paramet_m, only: iip1, jjp1, llmp1 |
15 |
use comconst, only: rad, cpp, daysec, dtvr, kappa, g, omeg |
use comconst, only: rad, cpp, daysec, dtvr, kappa, g, omeg |
16 |
use comvert, only: pa, bp, ap, nivsigs, preff, presnivs, nivsig |
use comvert, only: pa, bp, ap, nivsigs, preff, presnivs, nivsig |
17 |
use logic |
use logic |