- Timestamp:
- 2018-01-16T17:51:54+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_GO6_Carb_Fail_from_GO6_9163/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90
r9247 r9249 91 91 USE lib_mpp, ONLY: mpp_max, mpp_maxloc, & 92 92 mpp_min, mpp_minloc, & 93 ctl_stop, ctl_warn 93 ctl_stop, ctl_warn, lk_mpp 94 94 USE oce, ONLY: tsb, tsn 95 95 USE par_kind, ONLY: wp … … 803 803 WRITE(numout,*) '----------------------------------------------------------------------' 804 804 WRITE(numout,*) ' ' 805 ENDIF 806 805 807 9100 FORMAT('Row:', i1, ' ', e16.6, ' ', e16.6, ' ', e16.6) 806 808 9200 FORMAT(e16.6)
Note: See TracChangeset
for help on using the changeset viewer.