- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r9321 r11101 786 786 READ ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 787 787 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 788 IF(lwm ) WRITE ( numond, namzdf_tke )788 IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_tke ) 789 789 ! 790 790 ri_cri = 2._wp / ( 2._wp + rn_ediss / rn_ediff ) ! resulting critical Richardson number … … 797 797 WRITE(numout,*) 'zdf_tke_init : New tidal mixing case: force rn_emin = 1.e-10 and rmxl_min = 1.e-3 ' 798 798 WRITE(numout,*) '~~~~~~~~~~~~' 799 IF(lflush) CALL flush(numout) 799 800 ENDIF 800 801 # else … … 825 826 WRITE(numout,*) 826 827 WRITE(numout,*) ' critical Richardson nb with your parameters ri_cri = ', ri_cri 828 IF(lflush) CALL flush(numout) 827 829 ENDIF 828 830 ! … … 838 840 IF( ln_mxl0 ) THEN 839 841 IF(lwp) WRITE(numout,*) ' use a surface mixing length = F(stress) : set rn_mxl0 = rmxl_min' 842 IF(lwp .AND. lflush) CALL flush(numout) 840 843 rn_mxl0 = rmxl_min 841 844 ENDIF … … 949 952 ELSE ! No TKE array found: initialisation 950 953 IF(lwp) WRITE(numout,*) ' ===>>>> : previous run without tke scheme, en computed by iterative loop' 954 IF(lwp .AND. lflush) CALL flush(numout) 951 955 en (:,:,:) = rn_emin * tmask(:,:,:) 952 956 CALL tke_avn ! recompute avt, avm, avmu, avmv and dissl (approximation) … … 971 975 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 972 976 ! ! ------------------- 973 IF(lwp) WRITE(numout,*) '---- tke-rst ----' 977 IF(lwp .AND. nprint > 0) THEN 978 WRITE(numout,*) '---- tke-rst ----' 979 IF(lflush) CALL flush(numout) 980 ENDIF 974 981 IF(nn_timing == 2) CALL timing_start('iom_rstput') 975 982 CALL iom_rstput( kt, nitrst, numrow, 'en' , en )
Note: See TracChangeset
for help on using the changeset viewer.