- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c2d.h90
r6486 r11101 36 36 IF(lwp) WRITE(numout,*) ' ldf_tra_c2d : 2D eddy diffusivity and eddy' 37 37 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~ -- induced velocity coefficients' 38 IF(lwp .AND. lflush) CALL flush(numout) 38 39 ELSE 39 40 IF(lwp) WRITE(numout,*) 40 41 IF(lwp) WRITE(numout,*) ' ldf_tra2d : 2D eddy diffusivity coefficient' 41 42 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~ --' 43 IF(lwp .AND. lflush) CALL flush(numout) 42 44 ENDIF 43 45 … … 75 77 IF(lwp) WRITE(numout,*) ' Constant values used for eddy diffusivity coefficients' 76 78 IF(lwp) WRITE(numout,*) ' Variation lat/lon only for eddy induced velocity coefficients' 79 IF(lwp .AND. lflush) CALL flush(numout) 77 80 ENDIF 78 81
Note: See TracChangeset
for help on using the changeset viewer.