- Timestamp:
- 2013-04-18T16:38:06+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r3680 r3875 692 692 !!---------------------------------------------------------------------- 693 693 INTEGER :: ji, jj, jk ! dummy loop indices 694 INTEGER :: ios 694 695 !! 695 696 NAMELIST/namzdf_tke/ rn_ediff, rn_ediss , rn_ebb , rn_emin , & … … 699 700 !!---------------------------------------------------------------------- 700 701 ! 701 REWIND ( numnam ) !* Read Namelist namzdf_tke : Turbulente Kinetic Energy 702 READ ( numnam, namzdf_tke ) 702 REWIND( numnam_ref ) ! Namelist namzdf_tke in reference namelist : Turbulent Kinetic Energy 703 READ ( numnam_ref, namzdf_tke, IOSTAT = ios, ERR = 901) 704 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in reference namelist', lwp ) 705 706 REWIND( numnam_cfg ) ! Namelist namzdf_tke in configuration namelist : Turbulent Kinetic Energy 707 READ ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 708 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 709 WRITE ( numond, namzdf_tke ) 703 710 ! 704 711 ri_cri = 2._wp / ( 2._wp + rn_ediss / rn_ediff ) ! resulting critical Richardson number
Note: See TracChangeset
for help on using the changeset viewer.