Changeset 10679 for NEMO/branches/2019/fix_ticket2238_solution2/src/OCE/ICB/icbstp.F90

Timestamp:

2019-02-14T14:11:43+01:00 (5 years ago)

Author:

mathiot

Message:

branch for solution 2 of ticket #2238

Location:

NEMO/branches/2019/fix_ticket2238_solution2

Files:

• . (copied) (copied from NEMO/trunk)
• src/OCE/ICB/icbstp.F90 (modified) (3 diffs)

NEMO/branches/2019/fix_ticket2238_solution2/src/OCE/ICB/icbstp.F90

@@ -29 +29 @@
    USE icbclv         ! iceberg: calving routines
    USE icbthm         ! iceberg: thermodynamics routines
-   USE icblbc         ! iceberg: lateral boundary routines (including mpp)
    USE icbtrj         ! iceberg: trajectory I/O routines
    USE icbdia         ! iceberg: budget
@@ -91 +90 @@
  9100 FORMAT('kt= ',i8, ' day= ',i8,' secs=',i8)
       !
-      !                                   !* copy nemo forcing arrays into iceberg versions with extra halo
-      CALL icb_utl_copy()                 ! only necessary for variables not on T points
-      !
-      !
       !                       !==  process icebergs  ==!
       !                              !
@@ -104 +99 @@
       !                       !==  For each berg, evolve  ==!
       !
-      IF( ASSOCIATED(first_berg) )   CALL icb_dyn( kt )       ! ice berg dynamics
-
-      IF( lk_mpp ) THEN   ;          CALL icb_lbc_mpp()       ! Send bergs to other PEs
-      ELSE                ;          CALL icb_lbc()           ! Deal with any cyclic boundaries in non-mpp case
-      ENDIF
+                                     CALL icb_dyn( kt )       ! ice berg dynamics
 
       IF( ASSOCIATED(first_berg) )   CALL icb_thm( kt )       ! Ice berg thermodynamics (melting) + rolling