Changeset 13201 for utils/tools/TOYATM/src/toyatm.F90
- Timestamp:
- 2020-07-02T10:32:35+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/TOYATM/src/toyatm.F90
r10619 r13201 66 66 LOGICAL :: ln_rstart, nn_date0, nn_time0, nn_leapy , nn_istate, nn_stock, nn_write ,nn_chunksz, nn_euler,nn_wxios 67 67 CHARACTER (len=256) :: cn_exp , cn_ocerst_in, cn_ocerst_indir, cn_ocerst_out, cn_ocerst_outdir 68 REAL (kind=wp) :: rn_ rdt68 REAL (kind=wp) :: rn_Dt 69 69 LOGICAL :: ln_linssh, ln_crs, ln_meshmask 70 REAL (kind=wp) :: rn_isfhmin,rn_atfp70 REAL (kind=wp) :: rn_atfp 71 71 ! 72 72 ! NEMO namelists 73 !! NAMELIST/namrun/ nn_it000, nn_itend74 !! NAMELIST/namdom/ rn_rdt75 73 NAMELIST/namrun/ cn_ocerst_indir, cn_ocerst_outdir, nn_stocklist, ln_rst_list, & 76 74 & nn_no , cn_exp , cn_ocerst_in, cn_ocerst_out, ln_rstart , nn_rstctl , & … … 78 76 & nn_stock, nn_write , ln_mskland , ln_clobber , nn_chunksz, nn_euler , & 79 77 & ln_cfmeta, ln_iscpl, ln_xios_read, nn_wxios 80 NAMELIST/namdom/ ln_linssh, rn_ isfhmin, rn_rdt, rn_atfp, ln_crs, ln_meshmask78 NAMELIST/namdom/ ln_linssh, rn_Dt, rn_atfp, ln_crs, ln_meshmask 81 79 ! 82 80 !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ … … 133 131 ! 134 132 ! Get time step and number of iterations from ocean 135 time_step = INT(rn_ rdt)133 time_step = INT(rn_Dt) 136 134 niter = nn_itend - nn_it000 + 1 137 135 !
Note: See TracChangeset
for help on using the changeset viewer.