Ignore:
Timestamp:
2017-09-08T17:09:25+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - almost done

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceforcing.F90

    r8512 r8514  
    143143                                CALL blk_ice_flx( t_su, alb_ice )    !  
    144144         IF( ln_mixcpl      )   CALL sbc_cpl_ice_flx( picefr=at_i_b, palbi=alb_ice, psst=sst_m, pist=t_su ) 
    145          IF( nn_limflx /= 2 )   CALL ice_flx_dist( t_su, alb_ice, qns_ice, qsr_ice, dqns_ice, evap_ice, devap_ice, nn_limflx ) 
     145         IF( nn_iceflx /= 2 )   CALL ice_flx_dist( t_su, alb_ice, qns_ice, qsr_ice, dqns_ice, evap_ice, devap_ice, nn_iceflx ) 
    146146         ! 
    147147      CASE ( jp_purecpl )           !--- coupled formulation 
    148148                                CALL sbc_cpl_ice_flx( picefr=at_i_b, palbi=alb_ice, psst=sst_m, pist=t_su ) 
    149          IF( nn_limflx == 2 )   CALL ice_flx_dist( t_su, alb_ice, qns_ice, qsr_ice, dqns_ice, evap_ice, devap_ice, nn_limflx ) 
     149         IF( nn_iceflx == 2 )   CALL ice_flx_dist( t_su, alb_ice, qns_ice, qsr_ice, dqns_ice, evap_ice, devap_ice, nn_iceflx ) 
    150150         ! 
    151151      END SELECT 
     
    168168 
    169169 
    170    SUBROUTINE ice_flx_dist( ptn_ice, palb_ice, pqns_ice, pqsr_ice, pdqn_ice, pevap_ice, pdevap_ice, k_limflx ) 
     170   SUBROUTINE ice_flx_dist( ptn_ice, palb_ice, pqns_ice, pqsr_ice, pdqn_ice, pevap_ice, pdevap_ice, k_iceflx ) 
    171171      !!--------------------------------------------------------------------- 
    172172      !!                  ***  ROUTINE ice_flx_dist  *** 
     
    177177      !! ** Method  :   average then redistribute 
    178178      !! 
    179       !! ** Action  : 
    180       !!--------------------------------------------------------------------- 
    181       INTEGER                   , INTENT(in   ) ::   k_limflx   ! =-1 do nothing; =0 average ; 
    182       !                                                         ! = 1 average and redistribute ; =2 redistribute 
     179      !! ** Action  :   depends on k_iceflx 
     180      !!                = -1  Do nothing (needs N(cat) fluxes) 
     181      !!                =  0  Average N(cat) fluxes then apply the average over the N(cat) ice  
     182      !!                =  1  Average N(cat) fluxes then redistribute over the N(cat) ice 
     183      !!                                                 using T-ice and albedo sensitivity 
     184      !!                =  2  Redistribute a single flux over categories 
     185      !!--------------------------------------------------------------------- 
     186      INTEGER                   , INTENT(in   ) ::   k_iceflx   ! redistributor 
    183187      REAL(wp), DIMENSION(:,:,:), INTENT(in   ) ::   ptn_ice    ! ice surface temperature 
    184188      REAL(wp), DIMENSION(:,:,:), INTENT(in   ) ::   palb_ice   ! ice albedo 
     
    208212      END WHERE 
    209213       
    210       SELECT CASE( k_limflx )       !==  averaged on all ice categories  ==! 
     214      SELECT CASE( k_iceflx )       !==  averaged on all ice categories  ==! 
    211215      ! 
    212216      CASE( 0 , 1 ) 
     
    231235      END SELECT 
    232236      ! 
    233       SELECT CASE( k_limflx )       !==  redistribution on all ice categories  ==! 
     237      SELECT CASE( k_iceflx )       !==  redistribution on all ice categories  ==! 
    234238      ! 
    235239      CASE( 1 , 2 ) 
Note: See TracChangeset for help on using the changeset viewer.