Changeset 10892 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbdia.F90
- Timestamp:
- 2019-04-25T11:22:51+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbdia.F90
r10753 r10892 498 498 IF ( PRESENT(kbergs) ) THEN 499 499 IF(numicb.NE.-1) & 500 &WRITE(numicb,100) cd_budgetstr // ' state:', &500 WRITE(numicb,100) cd_budgetstr // ' state:', & 501 501 cd_startstr // ' start', pstartval, cd_budgetunits, & 502 502 cd_endstr // ' end', pendval, cd_budgetunits, & … … 505 505 ELSE 506 506 IF(numicb.NE.-1) & 507 &WRITE(numicb,100) cd_budgetstr // ' state:', &507 WRITE(numicb,100) cd_budgetstr // ' state:', & 508 508 cd_startstr // ' start', pstartval, cd_budgetunits, & 509 509 cd_endstr // ' end', pendval, cd_budgetunits, & … … 522 522 ! 523 523 IF(numicb.NE.-1) & 524 &WRITE(numicb,200) cd_budgetstr // ' check:', &524 WRITE(numicb,200) cd_budgetstr // ' check:', & 525 525 cd_startstr, pstartval, cd_budgetunits, & 526 526 cd_endstr, pendval, cd_budgetunits, &
Note: See TracChangeset
for help on using the changeset viewer.