Changeset 10416 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90

Timestamp:

2018-12-19T12:45:43+01:00 (6 years ago)

Author:

aumont

Message:

Remove LFe from standard PISCES code

File:

• NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90 (modified) (3 diffs)

NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90

@@ -189 +189 @@
       !!
       NAMELIST/nampisbio/ nrdttrc, wsbio, xkmort, ferat3, wsbio2, wsbio2max, wsbio2scale,    &
-         &                   wfep, ldocp, ldocz, lthet,  &
-         &                   no3rat3, po4rat3
+         &                   ldocp, ldocz, lthet, no3rat3, po4rat3
          !
       NAMELIST/nampisdmp/ ln_pisdmp, nn_pisdmp
@@ -224 +223 @@
          WRITE(numout,*) '      Big particles sinking speed length scale  wsbio2scale =', wsbio2scale
          IF( ln_ligand ) THEN
-            WRITE(numout,*) '      FeP sinking speed                              wfep   =', wfep
             IF( ln_p4z ) THEN
                WRITE(numout,*) '      Phyto ligand production per unit doc           ldocp  =', ldocp
@@ -494 +492 @@
             &         +   trn(:,:,:,jpbfe) + trn(:,:,:,jpsfe)                      &
             &         + ( trn(:,:,:,jpzoo) + trn(:,:,:,jpmes) )  * ferat3    
-         IF( ln_ligand)  zwork(:,:,:) = zwork(:,:,:) + trn(:,:,:,jpfep)                
          !
          ferbudget = glob_sum( zwork(:,:,:) * cvol(:,:,:)  )