Changeset 14907

Timestamp:

2021-05-26T17:38:37+02:00 (3 years ago)

Author:

mathiot

Message:

add some debug diagnostics and improve readability of debug print

Location:

NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF

Files:

• isfcav.F90 (modified) (1 diff)
• isfcavmlt.F90 (modified) (1 diff)
• isfpar.F90 (modified) (1 diff)
• isfparmlt.F90 (modified) (3 diffs)

NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfcav.F90

@@ -148 +148 @@
       !
       IF ( ln_isfdebug ) THEN
+         IF(lwp) WRITE(numout,*) ''
          CALL debug('isf_cav: ptsc T',ptsc(:,:,1))
          CALL debug('isf_cav: ptsc S',ptsc(:,:,2))
          CALL debug('isf_cav: pqfwf fwf',pqfwf(:,:))
+         IF(lwp) WRITE(numout,*) ''
       END IF
       !

NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfcavmlt.F90

@@ -79 +79 @@
       !
       IF (ln_isfdebug) THEN
+         IF(lwp) WRITE(numout,*) ''
          CALL debug( 'isfcav_mlt qhc  :', pqhc (:,:) )
          CALL debug( 'isfcav_mlt qoce :', pqoce(:,:) )
          CALL debug( 'isfcav_mlt qfwf :', pqfwf(:,:) )
+         IF(lwp) WRITE(numout,*) ''
       END IF
       !

NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfpar.F90

@@ -94 +94 @@
       !
       IF ( ln_isfdebug ) THEN
+         IF(lwp) WRITE(numout,*)
          CALL debug('isf_par: ptsc T',ptsc(:,:,1))
          CALL debug('isf_par: ptsc S',ptsc(:,:,2))
          CALL debug('isf_par: pqfwf fwf',pqfwf(:,:))
+         IF(lwp) WRITE(numout,*)
       END IF
       !

NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfparmlt.F90

@@ -10 +10 @@
    USE isf_oce                  ! ice shelf
    USE isftbl , ONLY: isf_tbl   ! ice shelf depth average
+   USE isfutils,ONLY: debug     ! debug subroutine
 
    USE dom_oce                  ! ocean space and time domain
@@ -39 +40 @@
 ! -------------------------------------------------------------------------------------------------------
 
-  SUBROUTINE isfpar_mlt( kt, Kmm, pqhc, pqoce, pqfwf )
+   SUBROUTINE isfpar_mlt( kt, Kmm, pqhc, pqoce, pqfwf )
       !!---------------------------------------------------------------------
       !!                  ***  ROUTINE isfpar_mlt  ***
@@ -69 +70 @@
       END SELECT
       !
+      IF (ln_isfdebug) THEN
+         IF(lwp) WRITE(numout,*) ''
+         CALL debug( 'isfpar_mlt qhc  :', pqhc (:,:) )
+         CALL debug( 'isfpar_mlt qoce :', pqoce(:,:) )
+         CALL debug( 'isfpar_mlt qfwf :', pqfwf(:,:) )
+         IF(lwp) WRITE(numout,*) ''
+      END IF
+      !
    END SUBROUTINE isfpar_mlt