- Timestamp:
- 2019-05-16T15:23:56+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ZDF/zdfgls.F90
r10968 r10986 890 890 WRITE(numout,*) ' Bottom seafloor roughness (m) rn_z0(_bot) = ', r_z0_bot 891 891 WRITE(numout,*) 892 IF(lflush) CALL FLUSH(numout) 892 893 ENDIF 893 894 … … 982 983 ! 983 984 END SELECT 984 985 IF(lflush .AND. lwp) CALL FLUSH(numout) 985 986 ! 986 987 SELECT CASE ( nn_stab_func ) !* set the parameters of the stability functions … … 1058 1059 ! 1059 1060 END SELECT 1061 IF(lflush .AND. lwp) CALL FLUSH(numout) 1060 1062 1061 1063 ! !* Set Schmidt number for psi diffusion in the wave breaking case … … 1107 1109 WRITE(numout,*) ' ra_sf = ', ra_sf 1108 1110 WRITE(numout,*) ' rl_sf = ', rl_sf 1111 IF(lflush) CALL FLUSH(numout) 1109 1112 ENDIF 1110 1113 … … 1177 1180 CALL iom_get( numror, jpdom_autoglo, 'hmxl_n', hmxl_n, ldxios = lrxios ) 1178 1181 ELSE 1179 IF(lwp) WRITE(numout,*) 1180 IF(lwp) WRITE(numout,*) ' ==>> previous run without GLS scheme, set en and hmxl_n to background values' 1182 IF(lwp) THEN 1183 WRITE(numout,*) 1184 WRITE(numout,*) ' ==>> previous run without GLS scheme, set en and hmxl_n to background values' 1185 IF(lflush) CALL FLUSH(numout) 1186 ENDIF 1181 1187 en (:,:,:) = rn_emin 1182 1188 hmxl_n(:,:,:) = 0.05_wp … … 1184 1190 ENDIF 1185 1191 ELSE !* Start from rest 1186 IF(lwp) WRITE(numout,*) 1187 IF(lwp) WRITE(numout,*) ' ==>> start from rest, set en and hmxl_n by background values' 1192 IF(lwp) THEN 1193 WRITE(numout,*) 1194 WRITE(numout,*) ' ==>> start from rest, set en and hmxl_n by background values' 1195 IF(lflush) CALL FLUSH(numout) 1196 ENDIF 1188 1197 en (:,:,:) = rn_emin 1189 1198 hmxl_n(:,:,:) = 0.05_wp … … 1193 1202 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 1194 1203 ! ! ------------------- 1195 IF(lwp) WRITE(numout,*) '---- gls-rst ----' 1204 IF(lwp .AND. nprint > 0) THEN 1205 WRITE(numout,*) '---- gls-rst ----' 1206 IF(lflush) CALL FLUSH(numout) 1207 ENDIF 1196 1208 IF( lwxios ) CALL iom_swap( cwxios_context ) 1197 1209 CALL iom_rstput( kt, nitrst, numrow, 'en' , en , ldxios = lwxios )
Note: See TracChangeset
for help on using the changeset viewer.