Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.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/TRA/traldf.F90
r6498 r12555 159 159 WRITE(numout,*) ' see ldf_tra_init report for lateral mixing parameters' 160 160 WRITE(numout,*) 161 IF(lflush) CALL flush(numout) 161 162 ENDIF 162 163 … … 227 228 IF( lk_esopa ) THEN 228 229 IF(lwp) WRITE(numout,*) ' esopa control: use all lateral physics options' 230 IF(lwp .AND. lflush) CALL flush(numout) 229 231 nldf = -1 230 232 ENDIF … … 238 240 IF( nldf == 2 ) WRITE(numout,*) ' bilaplacian operator' 239 241 IF( nldf == 3 ) WRITE(numout,*) ' Rotated bilaplacian' 242 IF(lflush) CALL flush(numout) 240 243 ENDIF 241 244 … … 278 281 WRITE(numout,*) 'tra:ldf_ano : lateral diffusion acting on anomalies' 279 282 WRITE(numout,*) '~~~~~~~~~~~' 283 IF(lflush) CALL flush(numout) 280 284 ENDIF 281 285 … … 292 296 zs_ref(:,:,:) = 35.0 * tmask(:,:,:) 293 297 IF(lwp) WRITE(numout,*) ' homogeneous ocean T = ', zt0, ' S = ',zs0 298 IF(lwp .AND. lflush) CALL flush(numout) 294 299 295 300 ! Initialisation of gtui/gtvi in case of no cavity … … 359 364 WRITE(numout,*) 'tra:ldf_ano : lateral diffusion acting on the full fields' 360 365 WRITE(numout,*) '~~~~~~~~~~~' 366 IF(lflush) CALL flush(numout) 361 367 ENDIF 362 368 END SUBROUTINE ldf_ano
Note: See TracChangeset
for help on using the changeset viewer.