Changeset 10375 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90
- Timestamp:
- 2018-12-07T17:27:26+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90
r10341 r10375 74 74 CALL p4z_che ! initialize the chemical constants 75 75 CALL ahini_for_at(hi) ! set PH at kt=nit000 76 t_oce_co2_flx_cum = 0._wp77 76 ELSE 78 77 CALL p4z_rst( nittrc000, 'READ' ) !* read or initialize all required fields … … 189 188 !! 190 189 NAMELIST/nampisbio/ nrdttrc, wsbio, xkmort, ferat3, wsbio2, wsbio2max, wsbio2scale, & 191 & niter1max, niter2max,wfep, ldocp, ldocz, lthet, &190 & wfep, ldocp, ldocz, lthet, & 192 191 & no3rat3, po4rat3 193 192 ! … … 223 222 WRITE(numout,*) ' Big particles maximum sinking speed wsbio2max =', wsbio2max 224 223 WRITE(numout,*) ' Big particles sinking speed length scale wsbio2scale =', wsbio2scale 225 WRITE(numout,*) ' Maximum number of iterations for POC niter1max =', niter1max226 WRITE(numout,*) ' Maximum number of iterations for GOC niter2max =', niter2max227 224 IF( ln_ligand ) THEN 228 225 WRITE(numout,*) ' FeP sinking speed wfep =', wfep
Note: See TracChangeset
for help on using the changeset viewer.