Changeset 13547


Ignore:
Timestamp:
2020-09-30T11:57:35+02:00 (4 months ago)
Author:
clem
Message:

remove unused argument in a subroutine

Location:
NEMO/trunk/src/ICE
Files:
3 edited

Legend:

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

    r13472 r13547  
    231231                              CALL ice_thd_dh                           ! Ice-Snow thickness    
    232232                              CALL ice_thd_pnd                          ! Melt ponds formation 
    233                               CALL ice_thd_ent( e_i_1d(1:npti,:), .true. )      ! Ice enthalpy remapping 
     233                              CALL ice_thd_ent( e_i_1d(1:npti,:) )      ! Ice enthalpy remapping 
    234234            ENDIF 
    235235                              CALL ice_thd_sal( ln_icedS )          ! --- Ice salinity --- !     
  • NEMO/trunk/src/ICE/icethd_do.F90

    r13295 r13547  
    385385            END DO 
    386386            ! --- Ice enthalpy remapping --- ! 
    387             CALL ice_thd_ent( ze_i_2d(1:npti,:,jl), .false. )  
     387            CALL ice_thd_ent( ze_i_2d(1:npti,:,jl) )  
    388388         END DO 
    389389 
  • NEMO/trunk/src/ICE/icethd_ent.F90

    r13472 r13547  
    3838CONTAINS 
    3939  
    40    SUBROUTINE ice_thd_ent( qnew, compute_hfx_err ) 
     40   SUBROUTINE ice_thd_ent( qnew ) 
    4141      !!------------------------------------------------------------------- 
    4242      !!               ***   ROUTINE ice_thd_ent  *** 
     
    6464      !!------------------------------------------------------------------- 
    6565      REAL(wp), DIMENSION(:,:), INTENT(inout) ::   qnew             ! new enthlapies (J.m-3, remapped) 
    66       LOGICAL, INTENT(in)                     ::   compute_hfx_err  ! determines whether to compute diag. 
    67                                                                     ! error or not 
    6866      ! 
    6967      INTEGER  :: ji         !  dummy loop indices 
Note: See TracChangeset for help on using the changeset viewer.