Changeset 9880 for NEMO/trunk/src/OCE

Timestamp:

2018-07-05T17:43:44+02:00 (6 years ago)

Author:

clem

Message:

sea-ice: remove negative values mainly created by the advection schemes (UMx and Prather) + adapt BDY to ensure that all the fields are coherent with the rest of the code (max concentration etc)

File:

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

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

@@ -18 +18 @@
    USE ice             ! sea-ice: variables
    USE icevar          ! sea-ice: operations
-   USE iceitd          ! sea-ice: rebining
+   USE icecor          ! sea-ice: corrections
    USE icectl          ! sea-ice: control prints
    USE phycst          ! physical constant
@@ -73 +73 @@
       END DO
       !
-      CALL ice_var_zapsmall
+      CALL ice_cor( kt , 0 )      ! -- In case categories are out of bounds, do a remapping
+      !                           !    i.e. inputs have not the same ice thickness distribution 
+      !                           !    (set by rn_himean) than the regional simulation
       CALL ice_var_agg(1)
       !
@@ -250 +252 @@
       END DO !jl
       !
-      ! --- In case categories are out of bounds, do a remapping --- !
-      !     i.e. inputs have not the same ice thickness distribution 
-      !          (set by rn_himean) than the regional simulation
-      IF( jpl > 1 )   CALL ice_itd_reb( kt )
+!!      ! --- In case categories are out of bounds, do a remapping --- !
+!!      !     i.e. inputs have not the same ice thickness distribution 
+!!      !          (set by rn_himean) than the regional simulation
+!!      IF( jpl > 1 )   CALL ice_itd_reb( kt )
       !      
    END SUBROUTINE bdy_ice_frs