- 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/SBC/sbcice_cice.F90
r9975 r11101 182 182 CALL wrk_alloc( jpi,jpj, ztmp1, ztmp2 ) 183 183 ! 184 IF(lwp) WRITE(numout,*)'cice_sbc_init' 184 IF(lwp .AND. nprint>1) THEN 185 WRITE(numout,*)'cice_sbc_init' 186 IF(lflush) CALL flush(numout) 187 ENDIF 185 188 186 189 ji_off = INT ( (jpiglo - nx_global) / 2 ) … … 342 345 343 346 IF( kt == nit000 ) THEN 344 IF(lwp) WRITE(numout,*)'cice_sbc_in' 347 IF(lwp .AND. nprint>1) THEN 348 WRITE(numout,*)'cice_sbc_in' 349 IF(lflush) CALL flush(numout) 350 ENDIF 345 351 ENDIF 346 352 … … 583 589 584 590 IF( kt == nit000 ) THEN 585 IF(lwp) WRITE(numout,*)'cice_sbc_out' 591 IF(lwp .AND. nprint>1) THEN 592 WRITE(numout,*)'cice_sbc_out' 593 IF(lflush) CALL flush(numout) 594 ENDIF 586 595 ENDIF 587 596 … … 820 829 !!--------------------------------------------------------------------- 821 830 822 IF(lwp) WRITE(numout,*)'cice_sbc_final' 831 IF(lwp .AND. nprint > 1) THEN 832 WRITE(numout,*)'cice_sbc_final' 833 IF(lflush) CALL flush(numout) 834 ENDIF 823 835 824 836 CALL CICE_Finalize … … 895 907 READ ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 896 908 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwp ) 897 IF(lwm ) WRITE ( numond, namsbc_cice )909 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_cice ) 898 910 899 911 ! store namelist information in an array … … 943 955 WRITE(numout,*) 944 956 WRITE(numout,*) ' read forcing fluxes for CICE OK' 945 CALL FLUSH(numout)957 IF(lflush) CALL flush(numout) 946 958 ENDIF 947 959
Note: See TracChangeset
for help on using the changeset viewer.