Changeset 9461 for branches/CNRS/dev_r8832_PISCO/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90

Timestamp:

2018-04-06T16:14:34+02:00 (6 years ago)

Author:

aumont

Message:

bug fixes in iron cycle

File:

• branches/CNRS/dev_r8832_PISCO/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90 (modified) (2 diffs)

branches/CNRS/dev_r8832_PISCO/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90

@@ -106 +106 @@
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   prodgoc    !: Calcite production
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   consgoc    !: Calcite production
-
+   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   blim       !: bacterial production factor
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   sizen      !: size of diatoms 
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   sizep      !: size of diatoms 
@@ -163 +163 @@
          ALLOCATE( xfracal (jpi,jpj,jpk), orem(jpi,jpj,jpk)    ,    &
             &      nitrfac(jpi,jpj,jpk), nitrfac2(jpi,jpj,jpk) ,    &
-            &      prodcal(jpi,jpj,jpk) , xdiss   (jpi,jpj,jpk),    &
+            &      prodcal(jpi,jpj,jpk) , xdiss  (jpi,jpj,jpk),    &
             &      prodpoc(jpi,jpj,jpk) , conspoc(jpi,jpj,jpk) ,    &
             &      prodgoc(jpi,jpj,jpk) , consgoc(jpi,jpj,jpk) ,    &
-            &      prmax  (jpi,jpj,jpk) , STAT=ierr(4) )
+            &      prmax  (jpi,jpj,jpk) , blim   (jpi,jpj,jpk) ,  STAT=ierr(4) )
 
          !* Variable for chemistry of the CO2 cycle