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 13540 for NEMO/branches/2020/r12377_ticket2386/src/TOP/PISCES/P4Z/p5zprod.F90 – NEMO

Ignore:
Timestamp:
2020-09-29T12:41:06+02:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2386: update to latest trunk

Location:
NEMO/branches/2020/r12377_ticket2386
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/r12377_ticket2386

    • Property svn:externals

      •  

        old new  
        33^/utils/build/mk@HEAD         mk 
        44^/utils/tools@HEAD            tools 
        5 ^/vendors/AGRIF/dev@HEAD      ext/AGRIF 
         5^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
        77^/vendors/IOIPSL@HEAD         ext/IOIPSL 
        88 
        99# SETTE 
        10 ^/utils/CI/sette@HEAD         sette 
         10^/utils/CI/sette@13507        sette 

  • NEMO/branches/2020/r12377_ticket2386/src/TOP/PISCES/P4Z/p5zprod.F90

    r12377 r13540  
    1818   USE p4zlim 
    1919   USE p5zlim          !  Co-limitations of differents nutrients 
    20    USE prtctl_trc      !  print control for debugging 
     20   USE prtctl          !  print control for debugging 
    2121   USE iom             !  I/O manager 
    2222 
    … …  
    5252   !! * Substitutions 
    5353#  include "do_loop_substitute.h90" 
     54#  include "domzgr_substitute.h90" 
    5455   !!---------------------------------------------------------------------- 
    5556   !! NEMO/TOP 4.0 , NEMO Consortium (2018) 
    … …  
    124125      ! day length in hours 
    125126      zstrn(:,:) = 0. 
    126       DO_2D_11_11 
     127      DO_2D( 1, 1, 1, 1 ) 
    127128         zargu = TAN( zcodel ) * TAN( gphit(ji,jj) * rad ) 
    128129         zargu = MAX( -1., MIN(  1., zargu ) ) 
    … …  
    131132 
    132133         ! Impact of the day duration on phytoplankton growth 
    133       DO_3D_11_11( 1, jpkm1 ) 
     134      DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 
    134135         IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 
    135136            zval = MAX( 1., zstrn(ji,jj) ) 
    … …  
    151152      WHERE( zstrn(:,:) < 1.e0 ) zstrn(:,:) = 24. 
    152153 
    153       DO_3D_11_11( 1, jpkm1 ) 
     154      DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 
    154155         IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 
    155156            ! Computation of the P-I slope for nanos and diatoms 
    … …  
    185186      END_3D 
    186187 
    187       DO_3D_11_11( 1, jpkm1 ) 
     188      DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 
    188189 
    189190          IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 
    … …  
    207208 
    208209      !  Sea-ice effect on production                                                                                
    209       DO_3D_11_11( 1, jpkm1 ) 
     210      DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 
    210211         zprbio(ji,jj,jk)  = zprbio(ji,jj,jk) * ( 1. - fr_i(ji,jj) ) 
    211212         zprpic(ji,jj,jk)  = zprpic(ji,jj,jk) * ( 1. - fr_i(ji,jj) )  
    … …  
    215216 
    216217      ! Computation of the various production terms of nanophytoplankton  
    217       DO_3D_11_11( 1, jpkm1 ) 
     218      DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 
    218219         IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 
    219220            !  production terms for nanophyto. 
    … …  
    248249 
    249250      ! Computation of the various production terms of picophytoplankton  
    250       DO_3D_11_11( 1, jpkm1 ) 
     251      DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 
    251252         IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 
    252253            !  production terms for picophyto. 
    … …  
    281282 
    282283      ! Computation of the various production terms of diatoms 
    283       DO_3D_11_11( 1, jpkm1 ) 
     284      DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 
    284285         IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 
    285286            !  production terms for diatomees 
    … …  
    315316      END_3D 
    316317 
    317       DO_3D_11_11( 1, jpkm1 ) 
     318      DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 
    318319         IF( etot_ndcy(ji,jj,jk) > 1.E-3 ) THEN 
    319320               !  production terms for nanophyto. ( chlorophyll ) 
    … …  
    346347 
    347348      !   Update the arrays TRA which contain the biological sources and sinks 
    348       DO_3D_11_11( 1, jpkm1 ) 
     349      DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 
    349350        zprontot = zpronewn(ji,jj,jk) + zproregn(ji,jj,jk) 
    350351        zproptot = zpronewp(ji,jj,jk) + zproregp(ji,jj,jk) 
    … …  
    409410     IF( ln_ligand ) THEN 
    410411         zpligprod1(:,:,:) = 0._wp    ;    zpligprod2(:,:,:) = 0._wp              
    411          DO_3D_11_11( 1, jpkm1 ) 
     412         DO_3D( 1, 1, 1, 1, 1, jpkm1 ) 
    412413           zdocprod = excretd * zprorcad(ji,jj,jk) + excretn * zprorcan(ji,jj,jk) + excretp * zprorcap(ji,jj,jk) 
    413414           zfeup    = texcretn * zprofen(ji,jj,jk) + texcretd * zprofed(ji,jj,jk) + texcretp * zprofep(ji,jj,jk) 
    … …  
    460461      IF(sn_cfctl%l_prttrc)   THEN  ! print mean trends (used for debugging) 
    461462         WRITE(charout, FMT="('prod')") 
    462          CALL prt_ctl_trc_info(charout) 
    463          CALL prt_ctl_trc(tab4d=tr(:,:,:,:,Krhs), mask=tmask, clinfo=ctrcnm) 
     463         CALL prt_ctl_info( charout, cdcomp = 'top' ) 
     464         CALL prt_ctl(tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm) 
    464465      ENDIF 
    465466      ! 
Note: See TracChangeset for help on using the changeset viewer.