Changeset 10004 for branches/UKMO/dev_r5518_GO6_fix_cpp_keys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.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_medusa_init.F90
r9257 r10004 37 37 USE sms_medusa, ONLY: jdms 38 38 USE trc, ONLY: ln_diatrc, med_diag, nittrc000 39 USE in_out_manager, ONLY: lwp 40 41 # if defined key_iomput 42 USE iom, ONLY: lk_iomput, numout 39 USE in_out_manager, ONLY: lwp, numout 40 41 USE iom, ONLY: lk_iomput 43 42 USE trcnam_medusa, ONLY: trc_nam_iom_medusa 44 # endif45 43 46 44 !! time (integer timestep) … … 178 176 zdic(:,:) = 0.0 179 177 zsil(:,:) = 0.0 178 # if defined key_mocsy 179 ! zpho is only defined if key_mocsy 180 ! is active, so we must protect this 181 ! initialisation accordingly. 180 182 zpho(:,:) = 0.0 183 # endif 181 184 f_co2flux(:,:) = 0.0 182 185 f_pco2atm(:,:) = 0.0 … … 864 867 CONTAINS 865 868 SUBROUTINE bio_medusa_init( ) ! Empty routine 869 IMPLICIT NONE 866 870 WRITE(*,*) 'bio_medusa_init: You should not have seen this print! error?' 867 871 END SUBROUTINE bio_medusa_init
Note: See TracChangeset
for help on using the changeset viewer.