Changeset 14864 for branches/NERC/dev_r5518_GO6_fix_medusa_debug

Timestamp:

2021-05-14T11:32:00+02:00 (3 years ago)

Author:

jpalmier

Message:

Fix debug key related bugs... -_-

File:

• branches/NERC/dev_r5518_GO6_fix_medusa_debug/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90 (modified) (6 diffs)

branches/NERC/dev_r5518_GO6_fix_medusa_debug/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90

@@ -33 +33 @@
       !!----------------------------------------------------------------------
       USE bio_medusa_mod
-      USE dom_oce,           ONLY: atfp, atfp1, neuler, rdt, tmask
+      USE dom_oce,           ONLY: atfp, atfp1, neuler, rdt, tmask, e3t_0
+# if defined key_vvl
+      USE dom_oce,           ONLY: e3t_n 
+# endif
       USE in_out_manager,    ONLY: lwp, numout
       USE iom,               ONLY: iom_put
@@ -65 +68 @@
       INTEGER :: jn
 
-      REAL(wp) :: fq0,fq1,fq2,fq3
+      REAL(wp) :: fq0,fq1,fq2,fq3,fq4
+
+
+   !!* Substitution
+#  include "domzgr_substitute.h90"
 
 # if defined key_roam                     
@@ -173 +180 @@
                   fq2 = fq0 + fq1
                   fq3 = f_benout_n(ji,jj)
-                  if (lwp) write (numout,'a,2i3,a,4f15,5)')                   &
+                  if (lwp) write (numout,'(a,2i3,a,4f15.5)')                   &
                      'AXY N   cons: (i,j)=',ji,jj,', (flx,ben,err,out)=',      &
                      fq0,fq1,fq2,fq3
@@ -187 +194 @@
                   fq2 = fq0 + fq1
                   fq3 = f_benout_si(ji,jj)
-                  if (lwp) write (numout,'a,2i3,a,4f15,5)')                   &
+                  if (lwp) write (numout,'(a,2i3,a,4f15.5)')                   &
                      'AXY Si  cons: (i,j)=',ji,jj,', (flx,ben,err,out)=',     &
                      fq0,fq1,fq2,fq3
@@ -202 +209 @@
                   fq3 = fq0 + fq1
                   fq4 = f_benout_c(ji,jj) + f_benout_ca(ji,jj)
-                  if (lwp) write (numout,'a,2i3,a,5f15,5)')                   &
+                  if (lwp) write (numout,'(a,2i3,a,5f15.5)')                   &
                      'AXY C   cons: (i,j)=',ji,jj,', (flx,ben,asf,err,out)=', &
                      fq0,fq1,fq2,fq3,fq4
@@ -216 +223 @@
                    fq2 = fq0 + fq1
                    fq3 = 2.0 * f_benout_ca(ji,jj)
-                   if (lwp) write (numout,'a,2i3,a,4f15,5)')                   &
+                   if (lwp) write (numout,'(a,2i3,a,4f15.5)')                   &
                       'AXY alk cons: (i,j)=',ji,jj,', (flx,ben,err,out)=',     &
                       fq0,fq1,fq2,fq3