Changeset 881 for branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbccpl.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/sbccpl.F90 (modified) (2 diffs)

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

@@ -27 +27 @@
    USE cpl_oasis4      ! OASIS4 coupling (to ECHAM5)
    USE geo2ocean, ONLY : repere, repcmo
-   USE ice, only       : frld       ! : leads fraction = 1-a/totalarea
+   USE ice_2, only     : frld       ! : leads fraction = 1-a/totalarea
 
    USE sbc_oce         ! Surface boundary condition: ocean fields
@@ -64 +64 @@
                        fr2_i0       ! : 2nd part of the fraction of sol.rad. which penetrate inside the ice cover
 
-   USE ice, only    : hicif ,     & ! : ice thickness
+   USE ice_2, only  : hicif ,     & ! : ice thickness
                       frld  ,     & ! : leads fraction = 1-a/totalarea
                       hsnif  ,    & ! : snow thickness