Changeset 10004 for branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90
- Timestamp:
- 2018-07-26T11:45:40+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90
r8442 r10004 31 31 !!------------------------------------------------------------------- 32 32 USE bio_medusa_mod 33 USE dom_oce, ONLY: e3t_0, e3t_n,mbathy, tmask33 USE dom_oce, ONLY: e3t_0, mbathy, tmask 34 34 USE in_out_manager, ONLY: lwp, numout 35 35 USE par_oce, ONLY: jpim1, jpjm1 … … 718 718 CONTAINS 719 719 SUBROUTINE bio_med_diag_iomput( ) ! Empty routine 720 IMPLICIT NONE 720 721 WRITE(*,*) 'bio_med_diag_iomput: You should not have seen this print! error?' 721 722 END SUBROUTINE bio_med_diag_iomput
Note: See TracChangeset
for help on using the changeset viewer.