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

Timestamp:

2019-08-08T16:02:49+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo : add UKESM ice sheet coupling method (ticket #2142)

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

@@ -17 +17 @@
    USE isftbl         !
    USE isfcavmlt
-   USE isfgammats
+   USE isfcavgam
    USE isfdiags
    USE dom_oce        ! ocean space and time domain
    USE phycst         ! physical constants
-   USE eosbn2         ! equation of state
-   USE zdfdrg         ! vertical physics: top/bottom drag coef.
+   USE eosbn2         ! l_useCT
    !
    USE in_out_manager ! I/O manager
@@ -166 +165 @@
          ALLOCATE( sf_isfcav_fwf(1), STAT=ierr )
          ALLOCATE( sf_isfcav_fwf(1)%fnow(jpi,jpj,1), sf_isfcav_fwf(1)%fdta(jpi,jpj,1,2) )
-         CALL fld_fill( sf_isfcav_fwf, (/ sn_isfcav_fwf /), cn_dirisf, 'isf_cav_init', 'read fresh water flux isf data', 'namisf' )
+         CALL fld_fill( sf_isfcav_fwf, (/ sn_isfcav_fwf /), cn_isfdir, 'isf_cav_init', 'read fresh water flux isf data', 'namisf' )
 
          IF(lwp) WRITE(numout,*)