Changeset 9421

Timestamp:

2018-03-22T18:55:41+01:00 (6 years ago)

Author:

clem

Message:

cosmetics

Location:

branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3

Files:

• icedyn_adv_umx.F90 (modified) (2 diffs)
• iceitd.F90 (modified) (1 diff)
• iceupdate.F90 (modified) (1 diff)

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

@@ -233 +233 @@
          END DO
       END DO
-      CALL lbc_lnk( ptc(:,:) , 'T',  1. )
+      CALL lbc_lnk( ptc, 'T',  1. )
       !
    END SUBROUTINE adv_umx
@@ -488 +488 @@
             END DO
          END DO
-         CALL lbc_lnk( pt_v(:,:) , 'V',  1. )
+         CALL lbc_lnk( pt_v, 'V',  1. )
          !
       CASE( 3 )                                                !==  3rd order central TIM  ==! (Eq. 24)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/iceitd.F90

@@ -714 +714 @@
       IF(lwp) WRITE(numout,*) '            hi_max(:)= ', hi_max(0:jpl)
       !
+      IF( hi_max(1) < rn_himin )   CALL ctl_stop('ice_itd_init: the upper bound of the 1st category must be bigger than rn_himin')
+      !
    END SUBROUTINE ice_itd_init
 

branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/iceupdate.F90

@@ -294 +294 @@
       ! controls
       !---------
+#if ! defined key_agrif
       IF( ln_icediachk .AND. .NOT. ln_bdy)   CALL ice_cons_final('iceupdate')                                       ! conservation
+#endif
       IF( ln_icectl                      )   CALL ice_prt       (kt, iiceprt, jiceprt, 3, 'Final state ice_update') ! prints
       IF( ln_ctl                         )   CALL ice_prt3D     ('iceupdate')                                       ! prints