Changeset 8505 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceadv.F90

Timestamp:

2017-09-06T19:02:43+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part5 - start changing init routines

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceadv.F90 (modified) (1 diff)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceadv.F90

@@ -117 +117 @@
       !----------
       SELECT CASE ( nn_limadv )
-      CASE ( 0 )                    !--  Ultimate-MACHO scheme
+      CASE ( 0 )                    !-- ULTIMATE-MACHO scheme
          CALL ice_adv_umx( kt, u_ice, v_ice,  &
             &              ato_i, v_i, v_s, smv_i, oa_i, a_i, a_ip, v_ip, e_s, e_i )
          
-      CASE ( -1 )                   !-- Prather scheme
+      CASE ( -1 )                   !-- PRATHER scheme
          CALL ice_adv_prather( kt, u_ice, v_ice,  &
             &                  ato_i, v_i, v_s, smv_i, oa_i, a_i, a_ip, v_ip, e_s, e_i )