Changeset 13547 for NEMO/trunk/src

Timestamp:

2020-09-30T11:57:35+02:00 (4 years ago)

Author:

clem

Message:

remove unused argument in a subroutine

Location:

NEMO/trunk/src/ICE

Files:

• icethd.F90 (modified) (1 diff)
• icethd_do.F90 (modified) (1 diff)
• icethd_ent.F90 (modified) (2 diffs)

NEMO/trunk/src/ICE/icethd.F90

@@ -231 +231 @@
                               CALL ice_thd_dh                           ! Ice-Snow thickness   
                               CALL ice_thd_pnd                          ! Melt ponds formation
-                              CALL ice_thd_ent( e_i_1d(1:npti,:), .true. )      ! Ice enthalpy remapping
+                              CALL ice_thd_ent( e_i_1d(1:npti,:) )      ! Ice enthalpy remapping
             ENDIF
                               CALL ice_thd_sal( ln_icedS )          ! --- Ice salinity --- !    

NEMO/trunk/src/ICE/icethd_do.F90

@@ -385 +385 @@
             END DO
             ! --- Ice enthalpy remapping --- !
-            CALL ice_thd_ent( ze_i_2d(1:npti,:,jl), .false. ) 
+            CALL ice_thd_ent( ze_i_2d(1:npti,:,jl) ) 
          END DO
 

NEMO/trunk/src/ICE/icethd_ent.F90

@@ -38 +38 @@
 CONTAINS
  
-   SUBROUTINE ice_thd_ent( qnew, compute_hfx_err )
+   SUBROUTINE ice_thd_ent( qnew )
       !!-------------------------------------------------------------------
       !!               ***   ROUTINE ice_thd_ent  ***
@@ -64 +64 @@
       !!-------------------------------------------------------------------
       REAL(wp), DIMENSION(:,:), INTENT(inout) ::   qnew             ! new enthlapies (J.m-3, remapped)
-      LOGICAL, INTENT(in)                     ::   compute_hfx_err  ! determines whether to compute diag.
-                                                                    ! error or not
       !
       INTEGER  :: ji         !  dummy loop indices