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 2819 for branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zrem.F90 – NEMO

Ignore:
Timestamp:
2011-08-09T10:29:53+02:00 (13 years ago)
Author:
cetlod
Message:

Improvment of branch dev_r2787_LOCEAN3_TRA_TRP

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zrem.F90

    r2773 r2819  
    1212   !!   'key_pisces'                                       PISCES bio-model 
    1313   !!---------------------------------------------------------------------- 
    14    !!   p4z_rem       :   Compute remineralization/scavenging of organic compounds 
    15    !!---------------------------------------------------------------------- 
    16    USE trc 
    17    USE oce_trc         ! 
    18    USE sms_pisces      !  
    19    USE prtctl_trc 
    20    USE p4zint 
    21    USE p4zopt 
    22    USE p4zmeso 
    23    USE p4zprod 
    24    USE p4zche 
     14   !!   p4z_rem       :  Compute remineralization/scavenging of organic compounds 
     15   !!   p4z_rem_init  :  Initialisation of parameters for remineralisation 
     16   !!   p4z_rem_alloc :  Allocate remineralisation variables 
     17   !!---------------------------------------------------------------------- 
     18   USE oce_trc         !  shared variables between ocean and passive tracers 
     19   USE trc             !  passive tracers common variables  
     20   USE sms_pisces      !  PISCES Source Minus Sink variables 
     21   USE p4zopt          !  optical model 
     22   USE p4zche          !  chemical model 
     23   USE p4zprod         !  Growth rate of the 2 phyto groups 
     24   USE p4zmeso         !  Sources and sinks of mesozooplankton 
     25   USE prtctl_trc      !  print control for debugging 
    2526 
    2627   IMPLICIT NONE 
     
    6162      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6263      USE wrk_nemo, ONLY:   ztempbac => wrk_2d_1 
    63       USE wrk_nemo, ONLY:   zdepbac  => wrk_3d_2 , zolimi => wrk_3d_3 
     64      USE wrk_nemo, ONLY:   zdepbac  => wrk_3d_2, zolimi => wrk_3d_3 
    6465      ! 
    6566      INTEGER, INTENT(in) ::   kt ! ocean time step 
     
    117118         DO jj = 1, jpj 
    118119            DO ji = 1, jpi 
     120               zstep   = xstep 
    119121# if defined key_degrad 
    120                zstep = xstep * facvol(ji,jj,jk) 
    121 # else 
    122                zstep = xstep 
     122               zstep = zstep * facvol(ji,jj,jk) 
    123123# endif 
    124124               ! DOC ammonification. Depends on depth, phytoplankton biomass 
     
    153153         DO jj = 1, jpj 
    154154            DO ji = 1, jpi 
     155               zstep   = xstep 
    155156# if defined key_degrad 
    156                zstep = xstep * facvol(ji,jj,jk) 
    157 # else 
    158                zstep = xstep 
     157               zstep = zstep * facvol(ji,jj,jk) 
    159158# endif 
    160159               !    NH4 nitrification to NO3. Ceased for oxygen concentrations 
     
    214213         DO jj = 1, jpj 
    215214            DO ji = 1, jpi 
     215               zstep   = xstep 
    216216# if defined key_degrad 
    217                zstep = xstep * facvol(ji,jj,jk) 
    218 # else 
    219                zstep = xstep 
     217               zstep = zstep * facvol(ji,jj,jk) 
    220218# endif 
    221219               !    POC disaggregation by turbulence and bacterial activity.  
     
    266264         DO jj = 1, jpj 
    267265            DO ji = 1, jpi 
     266               zstep   = xstep 
    268267# if defined key_degrad 
    269                zstep = xstep * facvol(ji,jj,jk) 
    270 # else 
    271                zstep = xstep 
     268               zstep = zstep * facvol(ji,jj,jk) 
    272269# endif 
    273270               !     Remineralization rate of BSi depedant on T and saturation 
     
    300297!CDIR NOVERRCHK 
    301298            DO ji = 1, jpi 
     299               zstep   = xstep 
    302300# if defined key_degrad 
    303                zstep = xstep * facvol(ji,jj,jk) 
    304 # else 
    305                zstep = xstep 
     301               zstep = zstep * facvol(ji,jj,jk) 
    306302# endif 
    307303               !  Compute de different ratios for scavenging of iron 
     
    414410      !!---------------------------------------------------------------------- 
    415411 
    416       REWIND( numnat )                     ! read numnat 
    417       READ  ( numnat, nampisrem ) 
     412      REWIND( numnatp )                     ! read numnatp 
     413      READ  ( numnatp, nampisrem ) 
    418414 
    419415      IF(lwp) THEN                         ! control print 
Note: See TracChangeset for help on using the changeset viewer.