Changeset 11612 for NEMO/trunk/src/ICE/icectl.F90

Timestamp:

2019-09-29T10:55:44+02:00 (5 years ago)

Author:

clem

Message:

make Prather the default advection scheme for ice simulations and drastically reduce the number of communications in Prather routine (by a factor of 10)

File:

• NEMO/trunk/src/ICE/icectl.F90 (modified) (1 diff)

NEMO/trunk/src/ICE/icectl.F90

@@ -158 +158 @@
             !    only check for Prather because Ultimate-Macho uses corrective fluxes (wfx etc)
             !    so the formulation for conservation is different (and not coded) 
-            !    it does not mean UM is not conservative (it is checked with above prints)
-            IF( ln_adv_Pra .AND. ABS(zvtrp) > zchk_m * rn_icechk_glo * zarea .AND. cd_routine == 'icedyn_adv' ) &
-               &                   WRITE(numout,*)   cd_routine,' : violation adv scheme [kg] = ',zvtrp * rdt_ice
+            !    it does not mean UM is not conservative (it is checked with above prints) => update (09/2019): same for Prather now
+            !IF( ln_adv_Pra .AND. ABS(zvtrp) > zchk_m * rn_icechk_glo * zarea .AND. cd_routine == 'icedyn_adv' ) &
+            !   &                   WRITE(numout,*)   cd_routine,' : violation adv scheme [kg] = ',zvtrp * rdt_ice
          ENDIF
          !