- 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/TRA/tradmp.F90
r10968 r10986 195 195 WRITE(numout,*) ' Damping file name cn_resto = ', cn_resto 196 196 WRITE(numout,*) 197 IF(lflush) CALL FLUSH(numout) 197 198 ENDIF 198 199 ! … … 208 209 CALL ctl_stop('tra_dmp_init : wrong value of nn_zdmp') 209 210 END SELECT 211 IF(lwp .AND. lflush) CALL FLUSH(numout) 210 212 ! 211 213 !!TG: Initialisation of dtatsd - Would it be better to have dmpdta routine … … 213 215 !!gm: In principle yes. Nevertheless, we can't anticipate demands that have never been formulated. 214 216 IF( .NOT.ln_tsd_dmp ) THEN 215 IF(lwp) WRITE(numout,*) 216 IF(lwp) WRITE(numout, *) ' read T-S data not initialized, we force ln_tsd_dmp=T' 217 IF(lwp) THEN 218 WRITE(numout,*) 219 WRITE(numout, *) ' read T-S data not initialized, we force ln_tsd_dmp=T' 220 IF(lflush) CALL FLUSH(numout) 221 ENDIF 217 222 CALL dta_tsd_init( ld_tradmp=ln_tradmp ) ! forces the initialisation of T-S data 218 223 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.