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

Timestamp:

2018-12-07T17:27:26+01:00 (5 years ago)

Author:

aumont

Message:

Create generic routines for vertical sinking of particles

File:

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

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

@@ -74 +74 @@
             CALL p4z_che                              ! initialize the chemical constants
             CALL ahini_for_at(hi)   !  set PH at kt=nit000
-            t_oce_co2_flx_cum = 0._wp
         ELSE
             CALL p4z_rst( nittrc000, 'READ' )  !* read or initialize all required fields
@@ -189 +188 @@
       !!
       NAMELIST/nampisbio/ nrdttrc, wsbio, xkmort, ferat3, wsbio2, wsbio2max, wsbio2scale,    &
-         &                   niter1max, niter2max, wfep, ldocp, ldocz, lthet,  &
+         &                   wfep, ldocp, ldocz, lthet,  &
          &                   no3rat3, po4rat3
          !
@@ -223 +222 @@
          WRITE(numout,*) '      Big particles maximum sinking speed       wsbio2max   =', wsbio2max
          WRITE(numout,*) '      Big particles sinking speed length scale  wsbio2scale =', wsbio2scale
-         WRITE(numout,*) '      Maximum number of iterations for POC      niter1max   =', niter1max
-         WRITE(numout,*) '      Maximum number of iterations for GOC      niter2max   =', niter2max
          IF( ln_ligand ) THEN
             WRITE(numout,*) '      FeP sinking speed                              wfep   =', wfep