Changeset 13105


Ignore:
Timestamp:
2020-06-12T14:42:37+02:00 (3 months ago)
Author:
stefryn
Message:

small changes to calls

Location:
NEMO/branches/2019/dev_r11842_SI3-10_EAP
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/ICE/icedyn_rhg.F90

    r12261 r13105  
    8888      CASE( np_rhgEAP )                ! Elasto-Anisotropic-Plastic ! 
    8989         !                             !----------------------------! 
    90          CALL ice_dyn_rhg_eap( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i, aniso_11, aniso_12 ) 
     90         CALL ice_dyn_rhg_eap( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i, aniso_11, aniso_12, rdg_conv ) 
    9191      END SELECT 
    9292      ! 
  • NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/ICE/icedyn_rhg_eap.F90

    r12261 r13105  
    6767CONTAINS 
    6868 
    69    SUBROUTINE ice_dyn_rhg_eap( kt, pstress1_i, pstress2_i, pstress12_i, pshear_i, pdivu_i, pdelta_i, paniso_11, paniso_12 ) 
     69   SUBROUTINE ice_dyn_rhg_eap( kt, pstress1_i, pstress2_i, pstress12_i, pshear_i, pdivu_i, pdelta_i, paniso_11, paniso_12, prdg_conv ) 
    7070      !!------------------------------------------------------------------- 
    7171      !!                 ***  SUBROUTINE ice_dyn_rhg_eap  *** 
     
    123123      REAL(wp), DIMENSION(:,:), INTENT(  out) ::   pshear_i  , pdivu_i   , pdelta_i      ! 
    124124      REAL(wp), DIMENSION(:,:), INTENT(inout) ::   paniso_11 , paniso_12                 ! structure tensor components 
     125      REAL(wp), DIMENSION(:,:), INTENT(inout) ::   prdg_conv                             ! for ridging 
    125126      !! 
    126127      INTEGER ::   ji, jj       ! dummy loop indices 
     
    415416                  yield22(ji,jj) = 0.5_wp * (stressptmp - stressmtmp) 
    416417                  yield12(ji,jj) = stress12tmp(ji,jj) 
    417                   rdg_conv(ji,jj) = -min( alphar, 0._wp)     
     418                  prdg_conv(ji,jj) = -min( alphar, 0._wp)     
    418419               ENDIF 
    419420 
     
    443444         END DO 
    444445         !CALL lbc_lnk( 'icedyn_rhg_eap', zp_delt, 'T', 1. ) 
    445          CALL lbc_lnk_multi( 'icedyn_rhg_eap', stress12tmp, 'T', 1., rdg_conv, 'T', 1. ) 
     446         CALL lbc_lnk( 'icedyn_rhg_eap', stress12tmp, 'T', 1. ) 
    446447 
    447448         DO jj = 1, jpjm1 
     
    717718      !                                                   ! ==================== ! 
    718719      ! 
     720      CALL lbc_lnk( 'icedyn_rhg_eap', prdg_conv, 'T', 1. )  ! only need this in ridging module after rheology completed 
     721      ! 
    719722      !------------------------------------------------------------------------------! 
    720723      ! 4) Recompute delta, shear and div (inputs for mechanical redistribution)  
     
    838841      ! --- yieldcurve --- ! 
    839842      IF( iom_use('yield11') .OR. iom_use('yield12') .OR. iom_use('yield22')) THEN 
     843 
     844         CALL lbc_lnk_multi( 'icedyn_rhg_eap', yield11, 'T', 1., yield22, 'T', 1., yield12, 'T', 1. ) 
     845 
    840846         CALL iom_put( 'yield11', yield11 * zmsk00 ) 
    841847         CALL iom_put( 'yield22', yield22 * zmsk00 ) 
     
    844850 
    845851      ! --- anisotropy tensor --- ! 
    846       IF( iom_use('aniso') ) THEN 
     852      IF( iom_use('aniso') ) THEN        
     853         CALL lbc_lnk( 'icedyn_rhg_eap', aniso_11, 'T', 1. )  
    847854         CALL iom_put( 'aniso' , aniso_11 * zmsk00 ) 
    848855      ENDIF 
  • NEMO/branches/2019/dev_r11842_SI3-10_EAP/tests/ICE_ADV2D/EXPREF/namelist_ice_cfg

    r12261 r13105  
    5050&namdyn_adv     !   Ice advection 
    5151!------------------------------------------------------------------------------ 
    52    ln_adv_Pra       = .true.         !  Advection scheme (Prather) 
    53    ln_adv_UMx       = .false.          !  Advection scheme (Ultimate-Macho) 
     52   ln_adv_Pra       = .false.         !  Advection scheme (Prather) 
     53   ln_adv_UMx       = .true.          !  Advection scheme (Ultimate-Macho) 
    5454      nn_UMx        =   5             !     order of the scheme for UMx (1-5 ; 20=centered 2nd order) 
    5555/ 
Note: See TracChangeset for help on using the changeset viewer.