Changeset 15127 for NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/P4Z/p4zfechem.F90
- Timestamp:
- 2021-07-16T20:00:12+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette@14244 sette 11 ^/utils/CI/sette@HEAD sette 12
-
- Property svn:externals
-
NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/P4Z/p4zfechem.F90
r14963 r15127 97 97 ! Chemistry is supposed to be fast enough to be at equilibrium 98 98 ! ------------------------------------------------------------ 99 DO_3D( 1, 1, 1, 1, 1, jpkm1)99 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 100 100 zTL1(ji,jj,jk) = ztotlig(ji,jj,jk) 101 101 zkeq = fekeq(ji,jj,jk) … … 135 135 ENDIF 136 136 137 DO_3D( 1, 1, 1, 1, 1, jpkm1)137 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1) 138 138 ! Scavenging rate of iron. This scavenging rate depends on the load of particles of sea water. 139 139 ! This parameterization assumes a simple second order kinetics (k[Particles][Fe]).
Note: See TracChangeset
for help on using the changeset viewer.