Ignore:
Timestamp:
2019-08-08T16:02:49+02:00 (15 months ago)
Author:
mathiot
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcav.F90

    r11403 r11423  
    1717   USE isftbl         ! 
    1818   USE isfcavmlt 
    19    USE isfgammats 
     19   USE isfcavgam 
    2020   USE isfdiags 
    2121   USE dom_oce        ! ocean space and time domain 
    2222   USE phycst         ! physical constants 
    23    USE eosbn2         ! equation of state 
    24    USE zdfdrg         ! vertical physics: top/bottom drag coef. 
     23   USE eosbn2         ! l_useCT 
    2524   ! 
    2625   USE in_out_manager ! I/O manager 
     
    166165         ALLOCATE( sf_isfcav_fwf(1), STAT=ierr ) 
    167166         ALLOCATE( sf_isfcav_fwf(1)%fnow(jpi,jpj,1), sf_isfcav_fwf(1)%fdta(jpi,jpj,1,2) ) 
    168          CALL fld_fill( sf_isfcav_fwf, (/ sn_isfcav_fwf /), cn_dirisf, 'isf_cav_init', 'read fresh water flux isf data', 'namisf' ) 
     167         CALL fld_fill( sf_isfcav_fwf, (/ sn_isfcav_fwf /), cn_isfdir, 'isf_cav_init', 'read fresh water flux isf data', 'namisf' ) 
    169168 
    170169         IF(lwp) WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.