Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.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/LDF/ldfslp.F90
r6498 r12555 414 414 IF(lwp) THEN 415 415 WRITE(numout,*) ' Horizontal mixing in s-coordinate: slope = slope of s-surfaces' 416 IF(lflush) CALL flush(numout) 416 417 ENDIF 417 418 … … 451 452 IF(lwp) WRITE(numout,*) ' max slop: u',SQRT( MAXVAL(uslp*uslp)), ' v ', SQRT(MAXVAL(vslp)), & 452 453 & ' wi', sqrt(MAXVAL(wslpi)), ' wj', sqrt(MAXVAL(wslpj)) 454 IF(lwp .AND. lflush) CALL flush(numout) 453 455 endif 454 456 … … 842 844 WRITE(numout,*) 'ldf_slp_init : direction of lateral mixing' 843 845 WRITE(numout,*) '~~~~~~~~~~~~' 846 IF(lflush) CALL flush(numout) 844 847 ENDIF 845 848 … … 865 868 IF(ln_sco .AND. (ln_traldf_hor .OR. ln_dynldf_hor )) THEN 866 869 IF(lwp) WRITE(numout,*) ' Horizontal mixing in s-coordinate: slope = slope of s-surfaces' 870 IF(lwp .AND. lflush) CALL flush(numout) 867 871 868 872 ! geopotential diffusion in s-coordinates on tracers and/or momentum
Note: See TracChangeset
for help on using the changeset viewer.