- Timestamp:
- 2020-09-15T12:56:56+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/temporary_r4_trunk/src/TOP/PISCES/P4Z/p4zfechem.F90
r13469 r13470 89 89 ! Chemistry is supposed to be fast enough to be at equilibrium 90 90 ! ------------------------------------------------------------ 91 DO_3D _11_11(1, jpkm1 )91 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 92 92 zTL1(ji,jj,jk) = ztotlig(ji,jj,jk) 93 93 zkeq = fekeq(ji,jj,jk) … … 104 104 105 105 zdust = 0. ! if no dust available 106 DO_3D _11_11(1, jpkm1 )106 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 107 107 ! Scavenging rate of iron. This scavenging rate depends on the load of particles of sea water. 108 108 ! This parameterization assumes a simple second order kinetics (k[Particles][Fe]). … … 170 170 IF( ln_ligand ) THEN 171 171 ! 172 DO_3D _11_11(1, jpkm1 )172 DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 173 173 zlam1a = ( 0.369 * 0.3 * trb(ji,jj,jk,jpdoc) + 102.4 * trb(ji,jj,jk,jppoc) ) * xdiss(ji,jj,jk) & 174 174 & + ( 114. * 0.3 * trb(ji,jj,jk,jpdoc) )
Note: See TracChangeset
for help on using the changeset viewer.