Changeset 730
- Timestamp:
- 2007-10-22T12:04:56+02:00 (17 years ago)
- Location:
- trunk/NEMO/TOP_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/SMS/sms_pisces.h90
r719 r730 66 66 REAL(wp), DIMENSION(jpi,jpj,jpk) :: & 67 67 sio3eq, fekeq 68 !!69 !!----------------------------------------------------------------------70 !!71 !! Variable for simplified sediments72 !!73 !! ---------------------------------------------------------------------74 !!75 REAL(wp), DIMENSION(jpi,jpj) :: &76 sedpoc, sedcal, sedsil77 78 REAL(wp) :: &79 sedlam,sedlostpoc, sedlostsil,sedlostcal80 81 68 82 69 !! -
trunk/NEMO/TOP_SRC/SMS/trclsm.pisces.h90
r719 r730 27 27 !!--------------------------------------------------------------------- 28 28 !! TOP 1.0 , LOCEAN-IPSL (2005) 29 !! $Header $29 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/SMS/trclsm.pisces.h90,v 1.7 2007/10/17 14:50:13 opalod Exp $ 30 30 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 31 31 !!--------------------------------------------------------------------- … … 36 36 NAMELIST/natext/ atcco2 37 37 NAMELIST/natbio/caco3r, kdca, nca, part, & 38 & dispo0,conc0,oxymin,grosip, sedlam, & 39 & sedlostpoc,sedlostcal,sedlostsil,nrdttrc, & 38 & dispo0,conc0,oxymin,grosip, nrdttrc, & 40 39 & pislope, excret,wsbio,wchl,wchld,resrat,mprat,mzrat, & 41 40 & grazrat,xprefc,xprefp,unass,xkgraz,xkmort,xksi1, & … … 102 101 & ' Phosphate half saturation =', conc0 103 102 WRITE(numout,*) & 104 & ' Sediment bioturbation factor =', sedlam105 WRITE(numout,*) &106 & ' Sediment burying ratio for POC =', sedlostpoc107 WRITE(numout,*) &108 & ' Sediment burying ratio for CACO3 =', sedlostcal109 WRITE(numout,*) &110 & ' Sediment burying ratio for SI =', sedlostsil111 WRITE(numout,*) &112 103 & ' frequence pour la biologie =', nrdttrc 113 104 WRITE(numout,*) & -
trunk/NEMO/TOP_SRC/trcdtr.F90
r719 r730 8 8 !!======================================================================================= 9 9 !! TOP 1.0, LOCEAN-IPSL (2005) 10 !! $Header $10 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/trcdtr.F90,v 1.8 2007/10/17 14:48:56 opalod Exp $ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!---------------------------------------------------------------------- … … 143 143 xksi(:,:)=2.E-6 144 144 145 !! initialize Silicate and Calcite and POC in sediments146 !! ---------------------------------------------------147 sedcal(:,:) = 0.148 sedsil(:,:) = 0.149 sedpoc(:,:) = 0.150 151 145 IF(lwp) WRITE(numout,*) 'Initialization of PISCES tracers done' 152 146 IF(lwp) WRITE(numout,*) ' ' -
trunk/NEMO/TOP_SRC/trcrst.F90
r719 r730 8 8 !!====================================================================== 9 9 !! TOP 1.0, LOCEAN-IPSL (2005) 10 !! $Header $10 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/trcrst.F90,v 1.11 2007/10/17 14:48:56 opalod Exp $ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!---------------------------------------------------------------------- … … 205 205 CALL iom_get( numrtr, jpdom_local, 'Silicalim', xksi(:,:) ) 206 206 xksimax = xksi 207 208 CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jppoc), sedpoc(:,:) )209 CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jpcal), sedcal(:,:) )210 CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jpsil), sedsil(:,:) )211 207 212 208 #elif defined key_cfc … … 446 442 CALL iom_rstput( kt, nitrst, numrtw, 'Silicalim', xksi(:,:) ) 447 443 448 CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jppoc), sedpoc(:,:) )449 CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jpcal), sedcal(:,:) )450 CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jpsil), sedsil(:,:) )451 452 444 #elif defined key_cfc 453 445 DO jn=1,jptra
Note: See TracChangeset
for help on using the changeset viewer.