From d3a0c2afb5c506f976ff10b7c719262029c0f26a Mon Sep 17 00:00:00 2001
From: Sebastien MASSON <massons@irene151.c-irene.tgcc.ccc.cea.fr>
Date: Tue, 1 Mar 2022 11:39:47 +0100
Subject: [PATCH] fix issue 24, prtctl not working in debug
---
src/OCE/LDF/ldfslp.F90 | 4 ++--
src/OCE/TRA/eosbn2.F90 | 9 ++++-----
src/OCE/ZDF/zdfddm.F90 | 2 +-
src/OCE/ZDF/zdfgls.F90 | 4 ++--
src/OCE/ZDF/zdfiwm.F90 | 2 +-
src/OCE/ZDF/zdftke.F90 | 4 ++--
src/OFF/dtadyn.F90 | 20 ++++++++++----------
7 files changed, 22 insertions(+), 23 deletions(-)
diff --git a/src/OCE/LDF/ldfslp.F90 b/src/OCE/LDF/ldfslp.F90
index c125a85db..4a85f6991 100644
--- a/src/OCE/LDF/ldfslp.F90
+++ b/src/OCE/LDF/ldfslp.F90
@@ -320,8 +320,8 @@ CONTAINS
CALL lbc_lnk( 'ldfslp', uslp , 'U', -1.0_wp , vslp , 'V', -1.0_wp , wslpi, 'W', -1.0_wp, wslpj, 'W', -1.0_wp )
IF(sn_cfctl%l_prtctl) THEN
- CALL prt_ctl(tab3d_1=uslp , clinfo1=' slp - u : ', tab3d_2=vslp, clinfo2=' v : ', kdim=jpk)
- CALL prt_ctl(tab3d_1=wslpi, clinfo1=' slp - wi: ', tab3d_2=wslpj, clinfo2=' wj: ', kdim=jpk)
+ CALL prt_ctl(tab3d_1=uslp , clinfo1=' slp - u : ', tab3d_2=vslp, clinfo2=' v : ')
+ CALL prt_ctl(tab3d_1=wslpi, clinfo1=' slp - wi: ', tab3d_2=wslpj, clinfo2=' wj: ')
ENDIF
!
IF( ln_timing ) CALL timing_stop('ldf_slp')
diff --git a/src/OCE/TRA/eosbn2.F90 b/src/OCE/TRA/eosbn2.F90
index d04597777..6011d4cef 100644
--- a/src/OCE/TRA/eosbn2.F90
+++ b/src/OCE/TRA/eosbn2.F90
@@ -300,7 +300,7 @@ CONTAINS
!
END SELECT
!
- IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-insitu : ', kdim=jpk )
+ IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-insitu : ' )
!
IF( ln_timing ) CALL timing_stop('eos-insitu')
!
@@ -468,8 +468,7 @@ CONTAINS
!
END SELECT
!
- IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-pot: ', &
- & tab3d_2=prhop, clinfo2=' pot : ', kdim=jpk )
+ IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-pot: ', tab3d_2=prhop, clinfo2=' pot : ' )
!
IF( ln_timing ) CALL timing_stop('eos-pot')
!
@@ -769,7 +768,7 @@ CONTAINS
END SELECT
!
IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=pab(:,:,:,jp_tem), clinfo1=' rab_3d_t: ', &
- & tab3d_2=pab(:,:,:,jp_sal), clinfo2=' rab_3d_s : ', kdim=jpk )
+ & tab3d_2=pab(:,:,:,jp_sal), clinfo2=' rab_3d_s : ' )
!
IF( ln_timing ) CALL timing_stop('rab_3d')
!
@@ -1041,7 +1040,7 @@ CONTAINS
& / e3w(ji,jj,jk,Kmm) * wmask(ji,jj,jk)
END_3D
!
- IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=pn2, clinfo1=' bn2 : ', kdim=jpk )
+ IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=pn2, clinfo1=' bn2 : ' )
!
IF( ln_timing ) CALL timing_stop('bn2')
!
diff --git a/src/OCE/ZDF/zdfddm.F90 b/src/OCE/ZDF/zdfddm.F90
index ec776287d..a08cf3439 100644
--- a/src/OCE/ZDF/zdfddm.F90
+++ b/src/OCE/ZDF/zdfddm.F90
@@ -158,7 +158,7 @@ CONTAINS
! ! ===============
!
IF(sn_cfctl%l_prtctl) THEN
- CALL prt_ctl(tab3d_1=avt , clinfo1=' ddm - t: ', tab3d_2=avs , clinfo2=' s: ', kdim=jpk)
+ CALL prt_ctl(tab3d_1=avt , clinfo1=' ddm - t: ', tab3d_2=avs , clinfo2=' s: ')
ENDIF
!
END SUBROUTINE zdf_ddm
diff --git a/src/OCE/ZDF/zdfgls.F90 b/src/OCE/ZDF/zdfgls.F90
index 9cad33c73..e3f7c96e8 100644
--- a/src/OCE/ZDF/zdfgls.F90
+++ b/src/OCE/ZDF/zdfgls.F90
@@ -891,8 +891,8 @@ CONTAINS
p_avt(A2D(nn_hls),1) = 0._wp
!
IF(sn_cfctl%l_prtctl) THEN
- CALL prt_ctl( tab3d_1=en , clinfo1=' gls - e: ', tab3d_2=p_avt, clinfo2=' t: ', kdim=jpk)
- CALL prt_ctl( tab3d_1=p_avm, clinfo1=' gls - m: ', kdim=jpk )
+ CALL prt_ctl( tab3d_1=en , clinfo1=' gls - e: ', tab3d_2=p_avt, clinfo2=' t: ' )
+ CALL prt_ctl( tab3d_1=p_avm, clinfo1=' gls - m: ' )
ENDIF
!
END SUBROUTINE zdf_gls
diff --git a/src/OCE/ZDF/zdfiwm.F90 b/src/OCE/ZDF/zdfiwm.F90
index 4df013262..d0a9540ea 100644
--- a/src/OCE/ZDF/zdfiwm.F90
+++ b/src/OCE/ZDF/zdfiwm.F90
@@ -299,7 +299,7 @@ CONTAINS
ENDIF
ENDIF
- IF(sn_cfctl%l_prtctl) CALL prt_ctl(tab3d_1=zav_wave , clinfo1=' iwm - av_wave: ', tab3d_2=avt, clinfo2=' avt: ', kdim=jpk)
+ IF(sn_cfctl%l_prtctl) CALL prt_ctl(tab3d_1=zav_wave , clinfo1=' iwm - av_wave: ', tab3d_2=avt, clinfo2=' avt: ')
!
END SUBROUTINE zdf_iwm
diff --git a/src/OCE/ZDF/zdftke.F90 b/src/OCE/ZDF/zdftke.F90
index 653dfd0d4..c9847d553 100644
--- a/src/OCE/ZDF/zdftke.F90
+++ b/src/OCE/ZDF/zdftke.F90
@@ -691,8 +691,8 @@ CONTAINS
ENDIF
!
IF(sn_cfctl%l_prtctl) THEN
- CALL prt_ctl( tab3d_1=en , clinfo1=' tke - e: ', tab3d_2=p_avt, clinfo2=' t: ', kdim=jpk)
- CALL prt_ctl( tab3d_1=p_avm, clinfo1=' tke - m: ', kdim=jpk )
+ CALL prt_ctl( tab3d_1=en , clinfo1=' tke - e: ', tab3d_2=p_avt, clinfo2=' t: ' )
+ CALL prt_ctl( tab3d_1=p_avm, clinfo1=' tke - m: ' )
ENDIF
!
END SUBROUTINE tke_avn
diff --git a/src/OFF/dtadyn.F90 b/src/OFF/dtadyn.F90
index 7d66832b0..a566cf8cc 100644
--- a/src/OFF/dtadyn.F90
+++ b/src/OFF/dtadyn.F90
@@ -195,14 +195,14 @@ CONTAINS
CALL eos( ts(:,:,:,:,Kmm), rhd, rhop, gdept_0(:,:,:) ) ! In any case, we need rhop
!
IF(sn_cfctl%l_prtctl) THEN ! print control
- CALL prt_ctl(tab3d_1=ts(:,:,:,jp_tem,Kmm), clinfo1=' tn - : ', mask1=tmask, kdim=jpk )
- CALL prt_ctl(tab3d_1=ts(:,:,:,jp_sal,Kmm), clinfo1=' sn - : ', mask1=tmask, kdim=jpk )
- CALL prt_ctl(tab3d_1=uu(:,:,:,Kmm) , clinfo1=' uu(:,:,:,Kmm) - : ', mask1=umask, kdim=jpk )
- CALL prt_ctl(tab3d_1=vv(:,:,:,Kmm) , clinfo1=' vv(:,:,:,Kmm) - : ', mask1=vmask, kdim=jpk )
- CALL prt_ctl(tab3d_1=ww , clinfo1=' ww - : ', mask1=tmask, kdim=jpk )
- CALL prt_ctl(tab3d_1=avt , clinfo1=' kz - : ', mask1=tmask, kdim=jpk )
- CALL prt_ctl(tab3d_1=uslp , clinfo1=' slp - u : ', tab3d_2=vslp, clinfo2=' v : ', kdim=jpk)
- CALL prt_ctl(tab3d_1=wslpi , clinfo1=' slp - wi: ', tab3d_2=wslpj, clinfo2=' wj: ', kdim=jpk)
+ CALL prt_ctl(tab3d_1=ts(:,:,:,jp_tem,Kmm), clinfo1=' tn - : ', mask1=tmask )
+ CALL prt_ctl(tab3d_1=ts(:,:,:,jp_sal,Kmm), clinfo1=' sn - : ', mask1=tmask )
+ CALL prt_ctl(tab3d_1=uu(:,:,:,Kmm) , clinfo1=' uu(:,:,:,Kmm) - : ', mask1=umask )
+ CALL prt_ctl(tab3d_1=vv(:,:,:,Kmm) , clinfo1=' vv(:,:,:,Kmm) - : ', mask1=vmask )
+ CALL prt_ctl(tab3d_1=ww , clinfo1=' ww - : ', mask1=tmask )
+ CALL prt_ctl(tab3d_1=avt , clinfo1=' kz - : ', mask1=tmask )
+ CALL prt_ctl(tab3d_1=uslp , clinfo1=' slp - u : ', tab3d_2=vslp, clinfo2=' v : ' )
+ CALL prt_ctl(tab3d_1=wslpi , clinfo1=' slp - wi: ', tab3d_2=wslpj, clinfo2=' wj: ' )
ENDIF
!
IF( ln_timing ) CALL timing_stop( 'dta_dyn')
@@ -730,8 +730,8 @@ CONTAINS
CALL eos ( ts(:,:,:,:,Kmm), rhd, rhop, gdept_0(:,:,:) ) ! In any case, we need rhop
IF(sn_cfctl%l_prtctl) THEN ! print control
- CALL prt_ctl(tab3d_1=ts(:,:,:,jp_tem,Kmm), clinfo1=' tn - : ', mask1=tmask, kdim=jpk )
- CALL prt_ctl(tab3d_1=ts(:,:,:,jp_sal,Kmm), clinfo1=' sn - : ', mask1=tmask, kdim=jpk )
+ CALL prt_ctl(tab3d_1=ts(:,:,:,jp_tem,Kmm), clinfo1=' tn - : ', mask1=tmask )
+ CALL prt_ctl(tab3d_1=ts(:,:,:,jp_sal,Kmm), clinfo1=' sn - : ', mask1=tmask )
ENDIF
!
IF( ln_timing ) CALL timing_stop( 'dta_dyn_sed')
--
GitLab