Changeset 10770 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
- Timestamp:
- 2019-03-15T17:03:41+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r10759 r10770 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) WRITE(numout,*)'cice_sbc_init' 185 185 186 186 ji_off = INT ( (jpiglo - nx_global) / 2 ) … … 342 342 343 343 IF( kt == nit000 ) THEN 344 IF(lwp ) WRITE(numout,*)'cice_sbc_in'344 IF(lwp .AND. nprint>1) WRITE(numout,*)'cice_sbc_in' 345 345 ENDIF 346 346 … … 583 583 584 584 IF( kt == nit000 ) THEN 585 IF(lwp ) WRITE(numout,*)'cice_sbc_out'585 IF(lwp .AND. nprint>1) WRITE(numout,*)'cice_sbc_out' 586 586 ENDIF 587 587 … … 820 820 !!--------------------------------------------------------------------- 821 821 822 IF(lwp ) WRITE(numout,*)'cice_sbc_final'822 IF(lwp .AND. nprint > 1) WRITE(numout,*)'cice_sbc_final' 823 823 824 824 CALL CICE_Finalize
Note: See TracChangeset
for help on using the changeset viewer.