Changeset 14676 for NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/src/OCE/LBC/mpp_lbc_north_icb_generic.h90

Timestamp:

2021-04-07T15:48:38+02:00 (3 years ago)

Author:

ayoung

Message:

Updating SEAMOUNT test case to trunk at revision 14675. 2021 ticket #2651. 2020 ticket #2480.

File:

• NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/src/OCE/LBC/mpp_lbc_north_icb_generic.h90 (modified) (1 diff)

NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/src/OCE/LBC/mpp_lbc_north_icb_generic.h90

@@ -31 +31 @@
       CHARACTER(len=1)        , INTENT(in   ) ::   cd_type  ! nature of pt3d grid-points
       !                                                     !   = T ,  U , V , F or W -points
-      REAL(wp)                , INTENT(in   ) ::   psgn     ! = -1. the sign change across the
+      REAL(PRECISION)         , INTENT(in   ) ::   psgn     ! = -1. the sign change across the
       !!                                                    ! north fold, =  1. otherwise
       INTEGER                 , INTENT(in   ) ::   kextj    ! Extra halo width at north fold