6 |
|
|
7 |
contains |
contains |
8 |
|
|
9 |
SUBROUTINE phyredem0(lmt_pas, itau_phy) |
SUBROUTINE phyredem0(lmt_pas) |
10 |
|
|
11 |
! From phylmd/phyredem.F, version 1.3, 2005/05/25 13:10:09 |
! From phylmd/phyredem.F, version 1.3, 2005/05/25 13:10:09 |
12 |
! Author: Z. X. Li (LMD/CNRS) |
! Author: Z. X. Li (LMD/CNRS) |
22 |
USE netcdf, ONLY: nf90_clobber, nf90_global, nf90_float |
USE netcdf, ONLY: nf90_clobber, nf90_global, nf90_float |
23 |
USE netcdf95, ONLY: nf95_create, nf95_put_att, nf95_def_dim, & |
USE netcdf95, ONLY: nf95_create, nf95_put_att, nf95_def_dim, & |
24 |
nf95_def_var, nf95_enddef, nf95_put_var |
nf95_def_var, nf95_enddef, nf95_put_var |
25 |
use phyetat0_m, only: rlat, rlon |
use phyetat0_m, only: rlat, rlon, itau_phy |
26 |
|
|
27 |
INTEGER, intent(in):: lmt_pas ! number of time steps of "physics" per day |
INTEGER, intent(in):: lmt_pas ! number of time steps of "physics" per day |
|
INTEGER, intent(in):: itau_phy |
|
28 |
|
|
29 |
! Local: |
! Local: |
30 |
|
|