Changeset 11902 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfhdiv.F90

Timestamp:

2019-11-13T20:07:33+01:00 (4 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo: add check on presence of restart variables

File:

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

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

@@ -2 +2 @@
 
    USE isf                    ! ice shelf
+   USE isfutils 
    USE dom_oce                ! time and space domain
    USE phycst , ONLY: r1_rau0 ! physical constant
@@ -35 +36 @@
          IF ( ln_isfpar_mlt ) CALL isf_hdiv_mlt(misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par, fwfisf_par, fwfisf_par_b, phdiv)
          !
-         !
          ! ice sheet coupling contribution 
          IF ( ln_isfcpl .AND. kt /= 0 ) THEN
@@ -46 +46 @@
             ! conservation option
             IF ( ln_isfcpl_cons ) CALL isf_hdiv_cpl(risfcpl_cons_vol, phdiv)
+            !
+            IF ( ln_isfdebug ) THEN
+               CALL debug('isfdiv: phdiv'      ,phdiv(:,:,:))
+               CALL debug('isfdiv: risfcpl_vol',risfcpl_vol(:,:,:))
+               CALL debug('isfdiv: fwfisf     ',fwfisf_cav(:,:)+fwfisf_cav_b(:,:))
+            END IF
             !
          END IF