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 14864 – NEMO

Changeset 14864


Ignore:
Timestamp:
2021-05-14T11:32:00+02:00 (12 months ago)
Author:
jpalmier
Message:

Fix debug key related bugs... -_-

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_fix_medusa_debug/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90

    r10149 r14864  
    3333      !!---------------------------------------------------------------------- 
    3434      USE bio_medusa_mod 
    35       USE dom_oce,           ONLY: atfp, atfp1, neuler, rdt, tmask 
     35      USE dom_oce,           ONLY: atfp, atfp1, neuler, rdt, tmask, e3t_0 
     36# if defined key_vvl 
     37      USE dom_oce,           ONLY: e3t_n  
     38# endif 
    3639      USE in_out_manager,    ONLY: lwp, numout 
    3740      USE iom,               ONLY: iom_put 
     
    6568      INTEGER :: jn 
    6669 
    67       REAL(wp) :: fq0,fq1,fq2,fq3 
     70      REAL(wp) :: fq0,fq1,fq2,fq3,fq4 
     71 
     72 
     73   !!* Substitution 
     74#  include "domzgr_substitute.h90" 
    6875 
    6976# if defined key_roam                      
     
    173180                  fq2 = fq0 + fq1 
    174181                  fq3 = f_benout_n(ji,jj) 
    175                   if (lwp) write (numout,'a,2i3,a,4f15,5)')                   & 
     182                  if (lwp) write (numout,'(a,2i3,a,4f15.5)')                   & 
    176183                     'AXY N   cons: (i,j)=',ji,jj,', (flx,ben,err,out)=',      & 
    177184                     fq0,fq1,fq2,fq3 
     
    187194                  fq2 = fq0 + fq1 
    188195                  fq3 = f_benout_si(ji,jj) 
    189                   if (lwp) write (numout,'a,2i3,a,4f15,5)')                   & 
     196                  if (lwp) write (numout,'(a,2i3,a,4f15.5)')                   & 
    190197                     'AXY Si  cons: (i,j)=',ji,jj,', (flx,ben,err,out)=',     & 
    191198                     fq0,fq1,fq2,fq3 
     
    202209                  fq3 = fq0 + fq1 
    203210                  fq4 = f_benout_c(ji,jj) + f_benout_ca(ji,jj) 
    204                   if (lwp) write (numout,'a,2i3,a,5f15,5)')                   & 
     211                  if (lwp) write (numout,'(a,2i3,a,5f15.5)')                   & 
    205212                     'AXY C   cons: (i,j)=',ji,jj,', (flx,ben,asf,err,out)=', & 
    206213                     fq0,fq1,fq2,fq3,fq4 
     
    216223                   fq2 = fq0 + fq1 
    217224                   fq3 = 2.0 * f_benout_ca(ji,jj) 
    218                    if (lwp) write (numout,'a,2i3,a,4f15,5)')                   & 
     225                   if (lwp) write (numout,'(a,2i3,a,4f15.5)')                   & 
    219226                      'AXY alk cons: (i,j)=',ji,jj,', (flx,ben,err,out)=',     & 
    220227                      fq0,fq1,fq2,fq3 
Note: See TracChangeset for help on using the changeset viewer.