Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/ICB/icbdia.F90
- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/ICB/icbdia.F90
r6491 r12555 311 311 'returned',calving_ret_net) 312 312 ENDIF 313 WRITE( numicb, '("calved by class = ",i6,20(",",i6))') (nbergs_calved_by_class(ik),ik=1,nclasses) 314 IF ( nspeeding_tickets > 0 ) WRITE( numicb, '("speeding tickets issued = ",i6)') nspeeding_tickets 313 IF(numicb.NE.-1) THEN 314 WRITE( numicb, '("calved by class = ",i6,20(",",i6))') (nbergs_calved_by_class(ik),ik=1,nclasses) 315 IF ( nspeeding_tickets > 0 ) WRITE( numicb, '("speeding tickets issued = ",i6)') nspeeding_tickets 316 ENDIF 315 317 316 318 nbergs_start = nbergs_end … … 418 420 stored_start = SUM( berg_grid%stored_ice(:,:,:) ) 419 421 IF( lk_mpp ) CALL mpp_sum( stored_start ) 420 WRITE(numicb,'(a,es13.6,a)') 'icb_dia_income: initial stored mass=',stored_start,' kg'422 IF(numicb.NE.-1) WRITE(numicb,'(a,es13.6,a)') 'icb_dia_income: initial stored mass=',stored_start,' kg' 421 423 ! 422 424 stored_heat_start = SUM( berg_grid%stored_heat(:,:) ) 423 425 IF( lk_mpp ) CALL mpp_sum( stored_heat_start ) 424 WRITE(numicb,'(a,es13.6,a)') 'icb_dia_income: initial stored heat=',stored_heat_start,' J'426 IF(numicb.NE.-1) WRITE(numicb,'(a,es13.6,a)') 'icb_dia_income: initial stored heat=',stored_heat_start,' J' 425 427 ENDIF 426 428 ! … … 495 497 ! 496 498 IF ( PRESENT(kbergs) ) THEN 497 WRITE(numicb,100) cd_budgetstr // ' state:', & 499 IF(numicb.NE.-1) & 500 WRITE(numicb,100) cd_budgetstr // ' state:', & 498 501 cd_startstr // ' start', pstartval, cd_budgetunits, & 499 502 cd_endstr // ' end', pendval, cd_budgetunits, & … … 501 504 '# of bergs', kbergs 502 505 ELSE 503 WRITE(numicb,100) cd_budgetstr // ' state:', & 506 IF(numicb.NE.-1) & 507 WRITE(numicb,100) cd_budgetstr // ' state:', & 504 508 cd_startstr // ' start', pstartval, cd_budgetunits, & 505 509 cd_endstr // ' end', pendval, cd_budgetunits, & … … 517 521 !!---------------------------------------------------------------------- 518 522 ! 519 WRITE(numicb,200) cd_budgetstr // ' check:', & 523 IF(numicb.NE.-1) & 524 WRITE(numicb,200) cd_budgetstr // ' check:', & 520 525 cd_startstr, pstartval, cd_budgetunits, & 521 526 cd_endstr, pendval, cd_budgetunits, & … … 538 543 & MAX( 1.e-30, MAX( abs( pendval - pstartval ) , ABS( pinval - poutval ) ) ) 539 544 540 WRITE(numicb,200) cd_budgetstr // ' budget:', & 545 IF(numicb.NE.-1) & 546 & WRITE(numicb,200) cd_budgetstr // ' budget:', & 541 547 & cd_instr // ' in', pinval, cd_budgetunits, & 542 548 & cd_outstr // ' out', poutval, cd_budgetunits, & … … 554 560 INTEGER, INTENT(in) :: pstartval, pendval 555 561 ! 556 WRITE(numicb,100) cd_budgetstr // ' state:', & 562 IF(numicb.NE.-1) & 563 & WRITE(numicb,100) cd_budgetstr // ' state:', & 557 564 & cd_startstr // ' start', pstartval, & 558 565 & cd_endstr // ' end', pendval, & … … 571 578 !!---------------------------------------------------------------------- 572 579 ! 573 WRITE(numicb,200) cd_budgetstr // ' budget:', & 580 IF(numicb.NE.-1) & 581 & WRITE(numicb,200) cd_budgetstr // ' budget:', & 574 582 cd_instr // ' in', pinval, & 575 583 cd_outstr // ' out', poutval, &
Note: See TracChangeset
for help on using the changeset viewer.