Changeset 9103 for branches/2017

Timestamp:

2017-12-15T18:53:43+01:00 (6 years ago)

Author:

clem

Message:

cosmetics

Location:

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3

Files:

• icedyn.F90 (modified) (1 diff)
• icedyn_adv_umx.F90 (modified) (1 diff)
• icedyn_rhg_evp.F90 (modified) (1 diff)

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn.F90

@@ -99 +99 @@
          END DO
       END DO
-      CALL lbc_lnk( zhmax(:,:,:), 'T', 1. )
+      CALL lbc_lnk( zhmax, 'T', 1. )
       !
       !

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv_umx.F90

@@ -231 +231 @@
          END DO
       END DO
-      CALL lbc_lnk( ptc(:,:) , 'T',  1. )
+      CALL lbc_lnk( ptc, 'T',  1. )
       !
    END SUBROUTINE adv_umx

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_rhg_evp.F90

@@ -810 +810 @@
          END DO
          
-         CALL lbc_lnk_multi(   zdiag_sig1   , 'T',  1., zdiag_sig2   , 'T',  1.,   &
-            &                  zdiag_dssh_dx, 'U', -1., zdiag_dssh_dy, 'V', -1.,   &
-            &                  zdiag_corstrx, 'U', -1., zdiag_corstry, 'V', -1.,   & 
-            &                  zdiag_intstrx, 'U', -1., zdiag_intstry, 'V', -1.    )
+         CALL lbc_lnk_multi( zdiag_sig1   , 'T',  1., zdiag_sig2   , 'T',  1.,   &
+            &                zdiag_dssh_dx, 'U', -1., zdiag_dssh_dy, 'V', -1.,   &
+            &                zdiag_corstrx, 'U', -1., zdiag_corstry, 'V', -1.,   & 
+            &                zdiag_intstrx, 'U', -1., zdiag_intstry, 'V', -1.    )
          
-         CALL lbc_lnk_multi(   zdiag_utau_oi, 'U', -1., zdiag_vtau_oi, 'V', -1.    )
-         
-         CALL lbc_lnk_multi(   zdiag_xmtrp_ice, 'U', -1., zdiag_xmtrp_snw, 'U', -1.,   &
-            &                  zdiag_xatrp    , 'U', -1., zdiag_ymtrp_ice, 'V', -1.,   &
-            &                  zdiag_ymtrp_snw, 'V', -1., zdiag_yatrp    , 'V', -1.    )
+         CALL lbc_lnk_multi( zdiag_utau_oi  , 'U', -1., zdiag_vtau_oi  , 'V', -1.,   &
+            &                zdiag_xmtrp_ice, 'U', -1., zdiag_xmtrp_snw, 'U', -1.,   &
+            &                zdiag_xatrp    , 'U', -1., zdiag_ymtrp_ice, 'V', -1.,   &
+            &                zdiag_ymtrp_snw, 'V', -1., zdiag_yatrp    , 'V', -1.    )
          
          IF( iom_use('normstr' ) )   CALL iom_put( 'normstr'  ,  zdiag_sig1(:,:)      )   ! Normal stress