Changeset 13547 for NEMO/trunk/src/ICE/icethd_ent.F90

Timestamp:

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

Author:

clem

Message:

remove unused argument in a subroutine

File:

• NEMO/trunk/src/ICE/icethd_ent.F90 (modified) (2 diffs)

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