- 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/LDF/ldfslp.F90
r10888 r10986 746 746 WRITE(numout,*) 'ldf_slp_init : direction of lateral mixing' 747 747 WRITE(numout,*) '~~~~~~~~~~~~' 748 IF(lflush) CALL FLUSH(numout) 748 749 ENDIF 749 750 ! … … 752 753 ! 753 754 IF( ln_traldf_triad ) THEN ! Griffies operator : triad of slopes 754 IF(lwp) WRITE(numout,*) ' ==>>> triad) operator (Griffies)' 755 IF(lwp) THEN 756 WRITE(numout,*) ' ==>>> triad) operator (Griffies)' 757 IF(lflush) CALL FLUSH(numout) 758 ENDIF 755 759 ALLOCATE( triadi_g(jpi,jpj,jpk,0:1,0:1) , triadj_g(jpi,jpj,jpk,0:1,0:1) , & 756 760 & triadi (jpi,jpj,jpk,0:1,0:1) , triadj (jpi,jpj,jpk,0:1,0:1) , & … … 760 764 ! 761 765 ELSE ! Madec operator : slopes at u-, v-, and w-points 762 IF(lwp) WRITE(numout,*) ' ==>>> iso operator (Madec)' 766 IF(lwp) THEN 767 WRITE(numout,*) ' ==>>> iso operator (Madec)' 768 IF(lflush) CALL FLUSH(numout) 769 ENDIF 763 770 ALLOCATE( omlmask(jpi,jpj,jpk) , & 764 771 & uslp(jpi,jpj,jpk) , uslpml(jpi,jpj) , wslpi(jpi,jpj,jpk) , wslpiml(jpi,jpj) , &
Note: See TracChangeset
for help on using the changeset viewer.