Ignore:
Timestamp:
2018-05-28T12:29:16+02:00 (3 years ago)
Author:
clem
Message:

complete last commit with the test cases

Location:
NEMO/trunk/tests/WAD/MY_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/tests/WAD/MY_SRC/bdyini.F90

    r9576 r9659  
    6868         &             cn_dyn3d, nn_dyn3d_dta, cn_tra, nn_tra_dta,             & 
    6969         &             ln_tra_dmp, ln_dyn3d_dmp, rn_time_dmp, rn_time_dmp_out, & 
    70          &             cn_ice_lim, nn_ice_lim_dta,                             & 
     70         &             cn_ice, nn_ice_dta,                                     & 
    7171         &             rn_ice_tem, rn_ice_sal, rn_ice_age,                     & 
    7272         &             ln_vol, nn_volctl, nn_rimwidth, nb_jpk_bdy 
     
    346346#if defined key_si3 
    347347        IF(lwp) WRITE(numout,*) 'Boundary conditions for sea ice:  ' 
    348         SELECT CASE( cn_ice_lim(ib_bdy) )                   
     348        SELECT CASE( cn_ice(ib_bdy) )                   
    349349          CASE('none') 
    350350             IF(lwp) WRITE(numout,*) '      no open boundary condition'         
     
    357357             dta_bdy(ib_bdy)%ll_ht_i = .true. 
    358358             dta_bdy(ib_bdy)%ll_ht_s = .true. 
    359           CASE DEFAULT   ;   CALL ctl_stop( 'unrecognised value for cn_ice_lim' ) 
     359          CASE DEFAULT   ;   CALL ctl_stop( 'unrecognised value for cn_ice' ) 
    360360        END SELECT 
    361         IF( cn_ice_lim(ib_bdy) /= 'none' ) THEN  
    362            SELECT CASE( nn_ice_lim_dta(ib_bdy) )                   !  
     361        IF( cn_ice(ib_bdy) /= 'none' ) THEN  
     362           SELECT CASE( nn_ice_dta(ib_bdy) )                   !  
    363363              CASE( 0 )      ;   IF(lwp) WRITE(numout,*) '      initial state used for bdy data'         
    364364              CASE( 1 )      ;   IF(lwp) WRITE(numout,*) '      boundary data taken from file' 
    365               CASE DEFAULT   ;   CALL ctl_stop( 'nn_ice_lim_dta must be 0 or 1' ) 
     365              CASE DEFAULT   ;   CALL ctl_stop( 'nn_ice_dta must be 0 or 1' ) 
    366366           END SELECT 
    367367        ENDIF 
  • NEMO/trunk/tests/WAD/MY_SRC/usrdef_sbc.F90

    r9019 r9659  
    2727   PRIVATE 
    2828 
    29    PUBLIC   usrdef_sbc_oce    ! routine called in sbcmod module 
    30    PUBLIC   usrdef_sbc_ice_tau  ! routine called by sbcice_lim.F90 for ice dynamics 
    31    PUBLIC   usrdef_sbc_ice_flx  ! routine called by sbcice_lim.F90 for ice thermo 
     29   PUBLIC   usrdef_sbc_oce      ! routine called in sbcmod module 
     30   PUBLIC   usrdef_sbc_ice_tau  ! routine called by icestp.F90 for ice dynamics 
     31   PUBLIC   usrdef_sbc_ice_flx  ! routine called by icestp.F90 for ice thermo 
    3232 
    3333   !! * Substitutions 
Note: See TracChangeset for help on using the changeset viewer.