Changeset 8442 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90
- Timestamp:
- 2017-08-17T13:39:18+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90
r8441 r8442 35 35 USE par_oce, ONLY: jpi, jpj, jpk 36 36 USE sms_medusa, ONLY: jdms 37 USE trc, ONLY: ln_diatrc, med_diag, nittrc000 , &38 trc2d, trc3d37 USE trc, ONLY: ln_diatrc, med_diag, nittrc000 38 USE in_out_manager, ONLY: lwp 39 39 40 40 # if defined key_iomput … … 47 47 48 48 IF( ln_diatrc ) THEN 49 !! blank 2D diagnostic array 50 trc2d(:,:,:) = 0.e0 51 !! 52 !! blank 3D diagnostic array 53 trc3d(:,:,:,:) = 0.e0 49 IF (lwp) write (numout,*) 'Diagnostics are now ALL through XIOS (key_xios)' 50 IF (lwp) write (numout,*) 'No more key_diatrc anymore.' 54 51 ENDIF 55 52 … … 171 168 !! ----------------------------- 172 169 !! Juju :: add kt condition !! 173 IF ( lk_iomput .AND. .NOT. ln_diatrc) THEN170 IF ( lk_iomput ) THEN 174 171 175 172 !! initialise iom_use test
Note: See TracChangeset
for help on using the changeset viewer.