- 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/zdfphy.F90
r10968 r10986 88 88 WRITE(numout,*) 'zdf_phy_init: ocean vertical physics' 89 89 WRITE(numout,*) '~~~~~~~~~~~~' 90 IF(lflush) CALL FLUSH(numout) 90 91 ENDIF 91 92 ! … … 128 129 WRITE(numout,*) ' constant background or profile nn_avb = ', nn_avb 129 130 WRITE(numout,*) ' horizontal variation for avtb nn_havtb = ', nn_havtb 131 IF(lflush) CALL FLUSH(numout) 130 132 ENDIF 131 133 … … 178 180 ELSE ; WRITE(numout,*) ' ==>>> convection: no specific scheme used' 179 181 ENDIF 182 IF(lflush) CALL FLUSH(numout) 180 183 ENDIF 181 184 … … 185 188 ELSE ; WRITE(numout,*) ' ==>>> No double diffusive mixing: avs = avt' 186 189 ENDIF 190 IF(lflush) CALL FLUSH(numout) 187 191 ENDIF 188 192
Note: See TracChangeset
for help on using the changeset viewer.