Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r9583 r12555 881 881 READ ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 882 882 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwp ) 883 IF(lwm ) WRITE ( numond, namzdf_gls )883 IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_gls ) 884 884 885 885 IF(lwp) THEN !* Control print … … 903 903 WRITE(numout,*) ' Surface roughness (m) rn_hsro = ', rn_hsro 904 904 WRITE(numout,*) ' Bottom roughness (m) (nambfr namelist) rn_bfrz0 = ', rn_bfrz0 905 IF(lflush) CALL flush(numout) 905 906 ENDIF 906 907 … … 990 991 ! 991 992 END SELECT 992 993 ! 994 IF(lwp .AND. lflush) CALL flush(numout) 993 995 ! 994 996 SELECT CASE ( nn_stab_func ) !* set the parameters of the stability functions … … 1066 1068 ! 1067 1069 END SELECT 1068 1070 ! 1071 IF(lwp .AND. lflush) CALL flush(numout) 1069 1072 ! !* Set Schmidt number for psi diffusion in the wave breaking case 1070 1073 ! ! See Eq. (13) of Carniel et al, OM, 30, 225-239, 2009 … … 1118 1121 WRITE(numout,*) 'rl_sf = ',rl_sf 1119 1122 WRITE(numout,*) 1123 IF(lflush) CALL flush(numout) 1120 1124 ENDIF 1121 1125 … … 1194 1198 ELSE 1195 1199 IF(lwp) WRITE(numout,*) ' ===>>>> : previous run without gls scheme, en and mxln computed by iterative loop' 1200 IF(lwp .AND. lflush) CALL flush(numout) 1196 1201 en (:,:,:) = rn_emin 1197 1202 mxln(:,:,:) = 0.05 … … 1204 1209 ELSE !* Start from rest 1205 1210 IF(lwp) WRITE(numout,*) ' ===>>>> : Initialisation of en and mxln by background values' 1211 IF(lwp .AND. lflush) CALL flush(numout) 1206 1212 en (:,:,:) = rn_emin 1207 1213 mxln(:,:,:) = 0.05 … … 1211 1217 ! ! ------------------- 1212 1218 IF(lwp) WRITE(numout,*) '---- gls-rst ----' 1219 IF(lwp .AND. lflush) CALL flush(numout) 1213 1220 IF(nn_timing == 2) CALL timing_start('iom_rstput') 1214 1221 CALL iom_rstput( kt, nitrst, numrow, 'en' , en )
Note: See TracChangeset
for help on using the changeset viewer.