Changeset 881 for branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2008-04-08T11:45:52+02:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC: Step I: change cpp ket name key_ice_lim into key_lim2 & change names inside modules with extension _2, see ticket: #110

File:

• branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (2 diffs)

branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -26 +26 @@
    USE sbcblk_core     ! surface boundary condition: bulk formulation : CORE
    USE sbcice_if       ! surface boundary condition: ice-if sea-ice model
-   USE sbcice_lim      ! surface boundary condition: LIM sea-ice model
+   USE sbcice_lim_2    ! surface boundary condition: LIM 2.0 sea-ice model
    USE sbccpl          ! surface boundary condition: coupled florulation
    USE sbcssr          ! surface boundary condition: sea surface restoring
@@ -228 +228 @@
       CASE(  1 )   ;         CALL sbc_ice_if ( kt )                  ! Ice-cover climatology ("Ice-if" model)
          !                                                           ! (update heat and freshwater fluxes)
-      CASE(  2 )   ;         CALL sbc_ice_lim( kt, nsbc )            ! LIM ice model
+      CASE(  2 )   ;         CALL sbc_ice_lim_2( kt, nsbc )          ! LIM 2.0 ice model
       END SELECT                                                     ! (update all fluxes using bulk + LIM)