Changeset 13786 for NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbutl.F90

Timestamp:

2020-11-12T19:13:23+01:00 (4 years ago)

Author:

mathiot

Message:

ticket #1900: cosmetic change

File:

• NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbutl.F90 (modified) (3 diffs)

NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbutl.F90

@@ -95 +95 @@
       CALL lbc_lnk_icb( 'icbutl', ssu_e, 'U', -1._wp, 1, 1 )
       CALL lbc_lnk_icb( 'icbutl', ssv_e, 'V', -1._wp, 1, 1 )
-      CALL lbc_lnk_icb( 'icbutl', ua_e, 'U', -1._wp, 1, 1 )
-      CALL lbc_lnk_icb( 'icbutl', va_e, 'V', -1._wp, 1, 1 )
+      CALL lbc_lnk_icb( 'icbutl', ua_e , 'U', -1._wp, 1, 1 )
+      CALL lbc_lnk_icb( 'icbutl', va_e , 'V', -1._wp, 1, 1 )
 #if defined key_si3
       hi_e(1:jpi, 1:jpj) = hm_i (:,:)  
@@ -274 +274 @@
          ! since we're looking for four T points containing quadrant we're in of 
          ! current T cell
-         kii = MAX(0, INT( pi     ))
-         kij = MAX(0, INT( pj     ))    ! T-point
+         kii = MAX(0, INT( pi        ))
+         kij = MAX(0, INT( pj        ))    ! T-point
          zwi = pi - REAL(kii,wp)
          zwj = pj - REAL(kij,wp)
       CASE ( 'U' )
          kii = MAX(0, INT( pi-0.5_wp ))
-         kij = MAX(0, INT( pj     ))    ! U-point
+         kij = MAX(0, INT( pj        ))    ! U-point
          zwi = pi - 0.5_wp - REAL(kii,wp)
          zwj = pj - REAL(kij,wp)
       CASE ( 'V' )
-         kii = MAX(0, INT( pi     ))
+         kii = MAX(0, INT( pi        ))
          kij = MAX(0, INT( pj-0.5_wp ))    ! V-point
          zwi = pi - REAL(kii,wp)
@@ -896 +896 @@
 
    SUBROUTINE test_icb_utl_getkb
+      !!----------------------------------------------------------------------
+      !!                 ***  FUNCTION test_icb_utl_getkb  ***
+      !!
+      !! ** Purpose : Test routine icb_utl_getkb, icb_utl_zavg
+      !! ** Methode : Call each subroutine with specific input data
+      !!              What should be the output is easy to determined and check 
+      !!              if NEMO return the correct answer.
+      !! ** Comments : not called, if needed a CALL test_icb_utl_getkb need to be added in icb_step
+      !!----------------------------------------------------------------------
       INTEGER :: ikb
       REAL(wp) :: zD, zout