- Timestamp:
- 2019-10-24T10:30:30+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11756_text_output/src/OCE/SBC/sbcice_cice.F90
r11536 r11782 159 159 !!--------------------------------------------------------------------- 160 160 ! 161 IF(lwp ) WRITE(numout,*)'cice_sbc_init'161 IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_init' 162 162 163 163 ji_off = INT ( (jpiglo - nx_global) / 2 ) … … 287 287 ! 288 288 IF( kt == nit000 ) THEN 289 IF(lwp ) WRITE(numout,*)'cice_sbc_in'289 IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_in' 290 290 ENDIF 291 291 … … 501 501 ! 502 502 IF( kt == nit000 ) THEN 503 IF(lwp ) WRITE(numout,*)'cice_sbc_out'503 IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_out' 504 504 ENDIF 505 505 … … 665 665 ! 666 666 IF( kt == nit000 ) THEN 667 IF(lwp ) WRITE(numout,*)'cice_sbc_hadgam'667 IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_hadgam' 668 668 IF( sbc_cpl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 669 669 ENDIF … … 696 696 !!--------------------------------------------------------------------- 697 697 ! 698 IF(lwp ) WRITE(numout,*)'cice_sbc_final'698 IF(lwp .AND. nprint > 0) WRITE(numout,*)'cice_sbc_final' 699 699 ! 700 700 CALL CICE_Finalize … … 814 814 815 815 ! control print (if less than 100 time-step asked) 816 IF( nitend-nit000 <= 100 .AND. lwp ) THEN816 IF( nitend-nit000 <= 100 .AND. lwp .AND. nprint > 0 ) THEN 817 817 WRITE(numout,*) 818 818 WRITE(numout,*) ' read forcing fluxes for CICE OK'
Note: See TracChangeset
for help on using the changeset viewer.