Changeset 11844 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcav.F90

Timestamp:

2019-11-01T21:54:15+01:00 (4 years ago)

Author:

mathiot

Message:

rm useless lbclnk + fix reproducibility WED025 + add isf debug option

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcav.F90 (modified) (2 diffs)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcav.F90

@@ -15 +15 @@
    USE oce            ! ocean dynamics and tracers
    USE isf            ! ice shelf public variables
+   USE isfutils
    USE isftbl         ! ice shelf top boundary layer properties
    USE isfcavmlt      ! ice shelf melt formulation
@@ -139 +140 @@
       ptsc(:,:,jp_tem) = - zqh(:,:) * r1_rau0_rcp
       !
+      IF ( ln_isfdebug ) THEN
+         CALL debug('isf_cav: ptsc T',ptsc(:,:,1))
+         CALL debug('isf_cav: ptsc S',ptsc(:,:,2))
+         CALL debug('isf_cav: pqfwf fwf',pqfwf(:,:))
+      END IF
+      !
    END SUBROUTINE isf_cav