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

Timestamp:

2020-01-28T17:17:13+01:00 (4 years ago)

Author:

aumont

Message:

update of the quota version of PISCES + some corrections of the GGE of zooplankton

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

@@ -105 +105 @@
       IF( ln_ligand )  &
       & CALL p4z_ligand( kt, knt )
+      ! Update of the size of the organisms
+      IF (ln_p5z) THEN
+         sized(:,:,:) = sizeda(:,:,:)
+         sizen(:,:,:) = sizena(:,:,:)
+         sizep(:,:,:) = sizepa(:,:,:)
+      ENDIF
       !                                                             !
       IF(ln_ctl)   THEN  ! print mean trends (used for debugging)