Changeset 9905 for NEMO/trunk/src/OCE/BDY/bdyice.F90

Timestamp:

2018-07-09T15:39:26+02:00 (6 years ago)

Author:

clem

Message:

correct BDY ice in case the model runs with only 1 ice category

File:

• NEMO/trunk/src/OCE/BDY/bdyice.F90 (modified) (4 diffs)

NEMO/trunk/src/OCE/BDY/bdyice.F90

@@ -58 +58 @@
       !!----------------------------------------------------------------------
       !
-      IF( ln_timing )   CALL timing_start('bdy_ice')
+      IF( ln_timing )   CALL timing_start('bdy_ice_thd')
       !
       CALL ice_var_glo2eqv
@@ -79 +79 @@
       !
       IF( ln_icectl )   CALL ice_prt( kt, iiceprt, jiceprt, 1, ' - ice thermo bdy - ' )
-      IF( ln_timing )   CALL timing_stop('bdy_ice')
+      IF( ln_timing )   CALL timing_stop('bdy_ice_thd')
       !
    END SUBROUTINE bdy_ice
@@ -281 +281 @@
       REAL(wp) ::   zmsk1, zmsk2, zflag
       !!------------------------------------------------------------------------------
+      IF( ln_timing )   CALL timing_start('bdy_ice_dyn')
       !
       DO jbdy=1, nb_bdy
@@ -349 +350 @@
       END DO
       !
+      IF( ln_timing )   CALL timing_stop('bdy_ice_dyn')
+      !
     END SUBROUTINE bdy_ice_dyn