Changeset 751

Timestamp:

2007-12-07T12:30:37+01:00 (16 years ago)

Author:

ctlod

Message:

move the CALL ice_init line into sbcice_lim.F90 module and remove it from opa.F90, see ticket:#31

Location:

branches/dev_001_SBC/NEMO/OPA_SRC

Files:

• SBC/sbcice_lim.F90 (modified) (1 diff)
• opa.F90 (modified) (2 diffs)

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

@@ -97 +97 @@
          IF(lwp) WRITE(numout,*) 'sbc_ice_lim : update ocean surface boudary condition' 
          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~   via Louvain la Neuve Ice Model (LIM) time stepping'
+
+         CALL ice_init
+
       ENDIF
 

branches/dev_001_SBC/NEMO/OPA_SRC/opa.F90

@@ -60 +60 @@
 
    USE phycst          ! physical constant                  (par_cst routine)
-   USE iceini          ! initialization of sea-ice         (ice_init routine)
    USE ocfzpt          ! ocean freezing point              (oc_fz_pt routine)
    USE trdmod          ! momentum/tracers trends       (trd_mod_init routine)
@@ -280 +279 @@
       CALL oc_fz_pt                         ! Surface freezing point
 
-#if defined key_ice_lim
-      CALL ice_init                         ! Sea ice model
-#endif
-
       !                                     ! Ocean physics