Changeset 12090 for NEMO/branches/2019/dev_r11943_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/P4Z/p4zfechem.F90
- Timestamp:
- 2019-12-06T14:37:33+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/P4Z/p4zfechem.F90
r10416 r12090 15 15 USE sms_pisces ! PISCES Source Minus Sink variables 16 16 USE p4zche ! chemical model 17 USE p4z sbc! Boundary conditions from sediments17 USE p4zbc ! Boundary conditions from sediments 18 18 USE prtctl_trc ! print control for debugging 19 19 USE iom ! I/O manager … … 133 133 ! 134 134 ztrc = ( trb(ji,jj,jk,jppoc) + trb(ji,jj,jk,jpgoc) + trb(ji,jj,jk,jpcal) + trb(ji,jj,jk,jpgsi) ) * 1.e6 135 IF( l n_dust ) zdust = dust(ji,jj) / ( wdust / rday ) * tmask(ji,jj,jk) &135 IF( ll_dust ) zdust = dust(ji,jj) / ( wdust / rday ) * tmask(ji,jj,jk) & 136 136 & * EXP( -gdept_n(ji,jj,jk) / 540. ) 137 137 IF (ln_ligand) THEN
Note: See TracChangeset
for help on using the changeset viewer.