Changeset 14276 for NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zbio.F90

Timestamp:

2021-01-07T23:09:56+01:00 (3 years ago)

Author:

aumont

Message:

numerous updates to PISCES, PISCES-QUOTA and the sediment module

File:

• NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zbio.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11708_aumont_PISCES_QUOTA/src/TOP/PISCES/P4Z/p4zbio.F90

@@ -110 +110 @@
 
       ! Update of the size of the different phytoplankton groups
-      sized(:,:,:) = sizeda(:,:,:)
-      sizen(:,:,:) = sizena(:,:,:)
+      sized(:,:,:) = MAX(1.0, sizeda(:,:,:) )
+      sizen(:,:,:) = MAX(1.0, sizena(:,:,:) )
       IF (ln_p5z) THEN
-         sizep(:,:,:) = sizepa(:,:,:)
+         sizep(:,:,:) = MAX(1.0, sizepa(:,:,:) )
       ENDIF
       !                                                             !