Changeset 751


Ignore:
Timestamp:
2007-12-07T12:30:37+01:00 (14 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:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r717 r751  
    9797         IF(lwp) WRITE(numout,*) 'sbc_ice_lim : update ocean surface boudary condition'  
    9898         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~   via Louvain la Neuve Ice Model (LIM) time stepping' 
     99 
     100         CALL ice_init 
     101 
    99102      ENDIF 
    100103 
  • branches/dev_001_SBC/NEMO/OPA_SRC/opa.F90

    r717 r751  
    6060 
    6161   USE phycst          ! physical constant                  (par_cst routine) 
    62    USE iceini          ! initialization of sea-ice         (ice_init routine) 
    6362   USE ocfzpt          ! ocean freezing point              (oc_fz_pt routine) 
    6463   USE trdmod          ! momentum/tracers trends       (trd_mod_init routine) 
     
    280279      CALL oc_fz_pt                         ! Surface freezing point 
    281280 
    282 #if defined key_ice_lim 
    283       CALL ice_init                         ! Sea ice model 
    284 #endif 
    285  
    286281      !                                     ! Ocean physics 
    287282 
Note: See TracChangeset for help on using the changeset viewer.