Changeset 9991 for branches/UKMO/dev_r5518_GO6_fix_key_comp/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90
- Timestamp:
- 2018-07-24T14:58:18+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_fix_key_comp/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90
r8442 r9991 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 … … 40 40 xthetapd, xthetapn, xthetazmi 41 41 USE trc, ONLY: med_diag 42 IMPLICIT NONE 42 43 43 44 !!* Substitution … … 718 719 CONTAINS 719 720 SUBROUTINE bio_med_diag_iomput( ) ! Empty routine 721 IMPLICIT NONE 720 722 WRITE(*,*) 'bio_med_diag_iomput: You should not have seen this print! error?' 721 723 END SUBROUTINE bio_med_diag_iomput
Note: See TracChangeset
for help on using the changeset viewer.