Ignore:
Timestamp:
2017-12-26T17:32:56+01:00 (3 years ago)
Author:
gm
Message:

dev_merge_2017: all SRC: finalize the removal of useless warning when reading namelist_cfg + remove all nn_closea + nn_msh replaced by a logical

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90

    r9125 r9169  
    88   !!             3.4  !  2011-06  (O. Aumont, C. Ethe) Quota model for iron 
    99   !!---------------------------------------------------------------------- 
    10    !!   p4z_micro       :  Compute the sources/sinks for microzooplankton 
    11    !!   p4z_micro_init  :  Initialize and read the appropriate namelist 
    12    !!---------------------------------------------------------------------- 
    13    USE oce_trc         !  shared variables between ocean and passive tracers 
    14    USE trc             !  passive tracers common variables  
    15    USE sms_pisces      !  PISCES Source Minus Sink variables 
    16    USE p4zlim          !  Co-limitations 
    17    USE p4zprod         !  production 
    18    USE iom             !  I/O manager 
    19    USE prtctl_trc      !  print control for debugging 
     10   !!   p4z_micro      : Compute the sources/sinks for microzooplankton 
     11   !!   p4z_micro_init : Initialize and read the appropriate namelist 
     12   !!---------------------------------------------------------------------- 
     13   USE oce_trc         ! shared variables between ocean and passive tracers 
     14   USE trc             ! passive tracers common variables  
     15   USE sms_pisces      ! PISCES Source Minus Sink variables 
     16   USE p4zlim          ! Co-limitations 
     17   USE p4zprod         ! production 
     18   USE iom             ! I/O manager 
     19   USE prtctl_trc      ! print control for debugging 
    2020 
    2121   IMPLICIT NONE 
     
    2525   PUBLIC   p4z_micro_init    ! called in trcsms_pisces.F90 
    2626 
    27    !! * Shared module variables 
    28    REAL(wp), PUBLIC ::  part        !: part of calcite not dissolved in microzoo guts 
    29    REAL(wp), PUBLIC ::  xpref2c     !: microzoo preference for POC  
    30    REAL(wp), PUBLIC ::  xpref2p     !: microzoo preference for nanophyto 
    31    REAL(wp), PUBLIC ::  xpref2d     !: microzoo preference for diatoms 
    32    REAL(wp), PUBLIC ::  xthreshdia  !: diatoms feeding threshold for microzooplankton  
    33    REAL(wp), PUBLIC ::  xthreshphy  !: nanophyto threshold for microzooplankton  
    34    REAL(wp), PUBLIC ::  xthreshpoc  !: poc threshold for microzooplankton  
    35    REAL(wp), PUBLIC ::  xthresh     !: feeding threshold for microzooplankton  
    36    REAL(wp), PUBLIC ::  resrat      !: exsudation rate of microzooplankton 
    37    REAL(wp), PUBLIC ::  mzrat       !: microzooplankton mortality rate  
    38    REAL(wp), PUBLIC ::  grazrat     !: maximal microzoo grazing rate 
    39    REAL(wp), PUBLIC ::  xkgraz      !: non assimilated fraction of P by microzoo  
    40    REAL(wp), PUBLIC ::  unass       !: Efficicency of microzoo growth  
    41    REAL(wp), PUBLIC ::  sigma1      !: Fraction of microzoo excretion as DOM  
    42    REAL(wp), PUBLIC ::  epsher      !: half sturation constant for grazing 1  
     27   REAL(wp), PUBLIC ::   part        !: part of calcite not dissolved in microzoo guts 
     28   REAL(wp), PUBLIC ::   xpref2c     !: microzoo preference for POC  
     29   REAL(wp), PUBLIC ::   xpref2p     !: microzoo preference for nanophyto 
     30   REAL(wp), PUBLIC ::   xpref2d     !: microzoo preference for diatoms 
     31   REAL(wp), PUBLIC ::   xthreshdia  !: diatoms feeding threshold for microzooplankton  
     32   REAL(wp), PUBLIC ::   xthreshphy  !: nanophyto threshold for microzooplankton  
     33   REAL(wp), PUBLIC ::   xthreshpoc  !: poc threshold for microzooplankton  
     34   REAL(wp), PUBLIC ::   xthresh     !: feeding threshold for microzooplankton  
     35   REAL(wp), PUBLIC ::   resrat      !: exsudation rate of microzooplankton 
     36   REAL(wp), PUBLIC ::   mzrat       !: microzooplankton mortality rate  
     37   REAL(wp), PUBLIC ::   grazrat     !: maximal microzoo grazing rate 
     38   REAL(wp), PUBLIC ::   xkgraz      !: non assimilated fraction of P by microzoo  
     39   REAL(wp), PUBLIC ::   unass       !: Efficicency of microzoo growth  
     40   REAL(wp), PUBLIC ::   sigma1      !: Fraction of microzoo excretion as DOM  
     41   REAL(wp), PUBLIC ::   epsher      !: half sturation constant for grazing 1  
    4342 
    4443   !!---------------------------------------------------------------------- 
     
    5756      !! ** Method  : - ??? 
    5857      !!--------------------------------------------------------------------- 
    59       INTEGER, INTENT(in) ::  kt  ! ocean time step 
    60       INTEGER, INTENT(in) ::  knt  
     58      INTEGER, INTENT(in) ::   kt    ! ocean time step 
     59      INTEGER, INTENT(in) ::   knt   ! ???  
    6160      ! 
    6261      INTEGER  :: ji, jj, jk 
     
    185184      ENDIF 
    186185      ! 
    187       IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
     186      IF(ln_ctl) THEN      ! print mean trends (used for debugging) 
    188187         WRITE(charout, FMT="('micro')") 
    189188         CALL prt_ctl_trc_info(charout) 
     
    215214      !!---------------------------------------------------------------------- 
    216215      ! 
     216      IF(lwp) THEN 
     217         WRITE(numout,*)  
     218         WRITE(numout,*) 'p4z_micro_init : Initialization of microzooplankton parameters' 
     219         WRITE(numout,*) '~~~~~~~~~~~~~~' 
     220      ENDIF 
     221      ! 
    217222      REWIND( numnatp_ref )              ! Namelist nampiszoo in reference namelist : Pisces microzooplankton 
    218223      READ  ( numnatp_ref, namp4zzoo, IOSTAT = ios, ERR = 901) 
    219 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zzoo in reference namelist', lwp ) 
    220       ! 
     224901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namp4zzoo in reference namelist', lwp ) 
    221225      REWIND( numnatp_cfg )              ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton 
    222226      READ  ( numnatp_cfg, namp4zzoo, IOSTAT = ios, ERR = 902 ) 
    223 902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namp4zzoo in configuration namelist', lwp ) 
    224       IF(lwm) WRITE ( numonp, namp4zzoo ) 
     227902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namp4zzoo in configuration namelist', lwp ) 
     228      IF(lwm) WRITE( numonp, namp4zzoo ) 
    225229      ! 
    226230      IF(lwp) THEN                         ! control print 
    227          WRITE(numout,*) ' ' 
    228          WRITE(numout,*) ' Namelist parameters for microzooplankton, namp4zzoo' 
    229          WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' 
    230          WRITE(numout,*) '    part of calcite not dissolved in microzoo guts  part        =', part 
    231          WRITE(numout,*) '    microzoo preference for POC                     xpref2c     =', xpref2c 
    232          WRITE(numout,*) '    microzoo preference for nano                    xpref2p     =', xpref2p 
    233          WRITE(numout,*) '    microzoo preference for diatoms                 xpref2d     =', xpref2d 
    234          WRITE(numout,*) '    diatoms feeding threshold  for microzoo         xthreshdia  =', xthreshdia 
    235          WRITE(numout,*) '    nanophyto feeding threshold for microzoo        xthreshphy  =', xthreshphy 
    236          WRITE(numout,*) '    poc feeding threshold for microzoo              xthreshpoc  =', xthreshpoc 
    237          WRITE(numout,*) '    feeding threshold for microzooplankton          xthresh     =', xthresh 
    238          WRITE(numout,*) '    exsudation rate of microzooplankton             resrat      =', resrat 
    239          WRITE(numout,*) '    microzooplankton mortality rate                 mzrat       =', mzrat 
    240          WRITE(numout,*) '    maximal microzoo grazing rate                   grazrat     =', grazrat 
    241          WRITE(numout,*) '    non assimilated fraction of P by microzoo       unass       =', unass 
    242          WRITE(numout,*) '    Efficicency of microzoo growth                  epsher      =', epsher 
    243          WRITE(numout,*) '    Fraction of microzoo excretion as DOM           sigma1      =', sigma1 
    244          WRITE(numout,*) '    half sturation constant for grazing 1           xkgraz      =', xkgraz 
     231         WRITE(numout,*) '   Namelist : namp4zzoo' 
     232         WRITE(numout,*) '      part of calcite not dissolved in microzoo guts  part        =', part 
     233         WRITE(numout,*) '      microzoo preference for POC                     xpref2c     =', xpref2c 
     234         WRITE(numout,*) '      microzoo preference for nano                    xpref2p     =', xpref2p 
     235         WRITE(numout,*) '      microzoo preference for diatoms                 xpref2d     =', xpref2d 
     236         WRITE(numout,*) '      diatoms feeding threshold  for microzoo         xthreshdia  =', xthreshdia 
     237         WRITE(numout,*) '      nanophyto feeding threshold for microzoo        xthreshphy  =', xthreshphy 
     238         WRITE(numout,*) '      poc feeding threshold for microzoo              xthreshpoc  =', xthreshpoc 
     239         WRITE(numout,*) '      feeding threshold for microzooplankton          xthresh     =', xthresh 
     240         WRITE(numout,*) '      exsudation rate of microzooplankton             resrat      =', resrat 
     241         WRITE(numout,*) '      microzooplankton mortality rate                 mzrat       =', mzrat 
     242         WRITE(numout,*) '      maximal microzoo grazing rate                   grazrat     =', grazrat 
     243         WRITE(numout,*) '      non assimilated fraction of P by microzoo       unass       =', unass 
     244         WRITE(numout,*) '      Efficicency of microzoo growth                  epsher      =', epsher 
     245         WRITE(numout,*) '      Fraction of microzoo excretion as DOM           sigma1      =', sigma1 
     246         WRITE(numout,*) '      half sturation constant for grazing 1           xkgraz      =', xkgraz 
    245247      ENDIF 
    246248      ! 
Note: See TracChangeset for help on using the changeset viewer.