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

Timestamp:

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

Author:

aumont

Message:

Remove LFe from standard PISCES code

File:

• NEMO/trunk/src/TOP/PISCES/P4Z/p4zsbc.F90 (modified) (4 diffs)

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

@@ -31 +31 @@
    REAL(wp), PUBLIC ::   dustsolub    !: Solubility of the dust
    REAL(wp), PUBLIC ::   mfrac        !: Mineral Content of the dust
-   REAL(wp), PUBLIC ::   rdustfep     !: Fraction of dust that is dissolvable
    REAL(wp), PUBLIC ::   icefeinput   !: Iron concentration in sea ice
    REAL(wp), PUBLIC ::   wdust        !: Sinking speed of the dust 
@@ -39 +38 @@
    REAL(wp)         ::   hratio       !: Fe:3He ratio assumed for vent iron supply
    REAL(wp)         ::   distcoast    !: Distance off the coast for Iron from sediments
-   REAL(wp), PUBLIC ::   fep_rats     !: Fep/Fer ratio from sed  sources
-   REAL(wp), PUBLIC ::   fep_rath     !: Fep/Fer ratio from hydro sources
    REAL(wp), PUBLIC ::   lgw_rath     !: Weak ligand ratio from hydro sources
 
@@ -228 +225 @@
         &                ln_dust, ln_solub, ln_river, ln_ndepo, ln_ironsed, ln_ironice, ln_hydrofe,    &
         &                sedfeinput, distcoast, dustsolub, icefeinput, wdust, mfrac, nitrfix, diazolight, concfediaz, &
-        &                hratio, fep_rats, fep_rath, rdustfep, lgw_rath
+        &                hratio, lgw_rath
       !!----------------------------------------------------------------------
       !
@@ -265 +262 @@
          WRITE(numout,*) '      Fe to 3He ratio assumed for vent iron supply hratio  = ', hratio
          IF( ln_ligand ) THEN
-            WRITE(numout,*) '      Fep/Fer ratio from sed sources            fep_rats   = ', fep_rats
-            WRITE(numout,*) '      Fep/Fer ratio from sed hydro sources      fep_rath   = ', fep_rath
-            WRITE(numout,*) '      Fraction of dust that is dissolvable      rdustfep   = ', rdustfep
             WRITE(numout,*) '      Weak ligand ratio from sed hydro sources  lgw_rath   = ', lgw_rath
          ENDIF