Ignore:
Timestamp:
2019-01-16T17:49:45+01:00 (19 months ago)
Author:
clem
Message:

change some more names in the ice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/iceforcing.F90

    r10531 r10534  
    143143         IF( ln_mixcpl        )   CALL sbc_cpl_ice_flx( picefr=at_i_b, palbi=alb_ice, psst=sst_m, pist=t_su, phs=h_s, phi=h_i ) 
    144144         IF( nn_flxdist /= -1 )   CALL ice_flx_dist   ( t_su, alb_ice, qns_ice, qsr_ice, dqns_ice, evap_ice, devap_ice, nn_flxdist ) 
    145          SELECT CASE( nice_jules ) 
    146          CASE( np_jules_ACTIVE )  !    compute conduction flux and surface temperature (as in Jules surface module) 
    147                                   CALL blk_ice_qcn    ( ln_virtual_itd, t_su, t_bo, h_s, h_i ) 
    148          END SELECT 
     145         !                        !    compute conduction flux and surface temperature (as in Jules surface module) 
     146         IF( ln_cndflx .AND. .NOT.ln_cndemulate ) & 
     147            &                     CALL blk_ice_qcn    ( ln_virtual_itd, t_su, t_bo, h_s, h_i ) 
    149148      CASE ( jp_purecpl )         !--- coupled formulation 
    150149                                  CALL sbc_cpl_ice_flx( picefr=at_i_b, palbi=alb_ice, psst=sst_m, pist=t_su, phs=h_s, phi=h_i ) 
     
    169168 
    170169 
    171    SUBROUTINE ice_flx_dist( ptn_ice, palb_ice, pqns_ice, pqsr_ice, pdqn_ice, pevap_ice, pdevap_ice, k_iceflx ) 
     170   SUBROUTINE ice_flx_dist( ptn_ice, palb_ice, pqns_ice, pqsr_ice, pdqn_ice, pevap_ice, pdevap_ice, k_flxdist ) 
    172171      !!------------------------------------------------------------------- 
    173172      !!                  ***  ROUTINE ice_flx_dist  *** 
     
    178177      !! ** Method  :   average then redistribute 
    179178      !! 
    180       !! ** Action  :   depends on k_iceflx 
     179      !! ** Action  :   depends on k_flxdist 
    181180      !!                = -1  Do nothing (needs N(cat) fluxes) 
    182181      !!                =  0  Average N(cat) fluxes then apply the average over the N(cat) ice  
     
    185184      !!                =  2  Redistribute a single flux over categories 
    186185      !!------------------------------------------------------------------- 
    187       INTEGER                   , INTENT(in   ) ::   k_iceflx   ! redistributor 
     186      INTEGER                   , INTENT(in   ) ::   k_flxdist  ! redistributor 
    188187      REAL(wp), DIMENSION(:,:,:), INTENT(in   ) ::   ptn_ice    ! ice surface temperature 
    189188      REAL(wp), DIMENSION(:,:,:), INTENT(in   ) ::   palb_ice   ! ice albedo 
     
    211210      END WHERE 
    212211       
    213       SELECT CASE( k_iceflx )       !==  averaged on all ice categories  ==! 
     212      SELECT CASE( k_flxdist )       !==  averaged on all ice categories  ==! 
    214213      ! 
    215214      CASE( 0 , 1 ) 
     
    234233      END SELECT 
    235234      ! 
    236       SELECT CASE( k_iceflx )       !==  redistribution on all ice categories  ==! 
     235      SELECT CASE( k_flxdist )       !==  redistribution on all ice categories  ==! 
    237236      ! 
    238237      CASE( 1 , 2 ) 
     
    268267      INTEGER ::   ios, ioptio   ! Local integer 
    269268      !! 
    270       NAMELIST/namforcing/ rn_cio, rn_blow_s, nn_flxdist, nice_jules 
     269      NAMELIST/namforcing/ rn_cio, rn_blow_s, nn_flxdist, ln_cndflx, ln_cndemulate 
    271270      !!------------------------------------------------------------------- 
    272271      ! 
     
    284283         WRITE(numout,*) '~~~~~~~~~~~~~~~~' 
    285284         WRITE(numout,*) '   Namelist namforcing:' 
    286          WRITE(numout,*) '      drag coefficient for oceanic stress              rn_cio     = ', rn_cio 
    287          WRITE(numout,*) '      coefficient for ice-lead partition of snowfall   rn_blow_s  = ', rn_blow_s 
    288          WRITE(numout,*) '      Multicategory heat flux formulation              nn_flxdist = ', nn_flxdist 
    289          WRITE(numout,*) '      Jules coupling (0=no, 1=emulated, 2=active)      nice_jules = ', nice_jules 
     285         WRITE(numout,*) '      drag coefficient for oceanic stress              rn_cio        = ', rn_cio 
     286         WRITE(numout,*) '      coefficient for ice-lead partition of snowfall   rn_blow_s     = ', rn_blow_s 
     287         WRITE(numout,*) '      Multicategory heat flux formulation              nn_flxdist    = ', nn_flxdist 
     288         WRITE(numout,*) '      Use conduction flux as surface condition         ln_cndflx     = ', ln_cndflx 
     289         WRITE(numout,*) '         emulate conduction flux                       ln_cndemulate = ', ln_cndemulate 
    290290      ENDIF 
    291291      ! 
Note: See TracChangeset for help on using the changeset viewer.