- 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/DOM/istate.F90
r6486 r11101 79 79 IF(lwp) WRITE(numout,*) 'istate_ini : Initialization of the dynamics and tracers' 80 80 IF(lwp) WRITE(numout,*) '~~~~~~~~~~' 81 IF(lwp .AND. lflush) CALL flush(numout) 81 82 82 83 CALL dta_tsd_init ! Initialisation of T & S input data … … 209 210 IF(lwp) WRITE(numout,*) 'istate_t_s : Philander s initial temperature profile' 210 211 IF(lwp) WRITE(numout,*) '~~~~~~~~~~ and constant salinity (',zsal,' psu)' 212 IF(lwp .AND. lflush) CALL flush(numout) 211 213 ! 212 214 DO jk = 1, jpk … … 359 361 ! 360 362 END SELECT 363 ! 364 IF(lwp .AND. lflush) CALL flush(numout) 361 365 ! 362 366 END SUBROUTINE istate_eel … … 443 447 ENDIF 444 448 ! 449 IF(lwp .AND. lflush) CALL flush(numout) 450 ! 445 451 END SUBROUTINE istate_gyre 446 452 … … 566 572 CALL wrk_dealloc( jpi, jpj, jpk, zprn) 567 573 ! 574 IF(lwp .AND. lflush) CALL flush(numout) 575 ! 568 576 END SUBROUTINE istate_uvg 569 577
Note: See TracChangeset
for help on using the changeset viewer.