New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10416 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90 – NEMO

Ignore:
Timestamp:
2018-12-19T12:45:43+01:00 (5 years ago)
Author:
aumont
Message:

Remove LFe from standard PISCES code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90

    r10382 r10416  
    189189      !! 
    190190      NAMELIST/nampisbio/ nrdttrc, wsbio, xkmort, ferat3, wsbio2, wsbio2max, wsbio2scale,    & 
    191          &                   wfep, ldocp, ldocz, lthet,  & 
    192          &                   no3rat3, po4rat3 
     191         &                   ldocp, ldocz, lthet, no3rat3, po4rat3 
    193192         ! 
    194193      NAMELIST/nampisdmp/ ln_pisdmp, nn_pisdmp 
     
    224223         WRITE(numout,*) '      Big particles sinking speed length scale  wsbio2scale =', wsbio2scale 
    225224         IF( ln_ligand ) THEN 
    226             WRITE(numout,*) '      FeP sinking speed                              wfep   =', wfep 
    227225            IF( ln_p4z ) THEN 
    228226               WRITE(numout,*) '      Phyto ligand production per unit doc           ldocp  =', ldocp 
     
    494492            &         +   trn(:,:,:,jpbfe) + trn(:,:,:,jpsfe)                      & 
    495493            &         + ( trn(:,:,:,jpzoo) + trn(:,:,:,jpmes) )  * ferat3     
    496          IF( ln_ligand)  zwork(:,:,:) = zwork(:,:,:) + trn(:,:,:,jpfep)                 
    497494         ! 
    498495         ferbudget = glob_sum( zwork(:,:,:) * cvol(:,:,:)  )   
Note: See TracChangeset for help on using the changeset viewer.