New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8316 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90 – NEMO

Ignore:
Timestamp:
2017-07-11T14:05:05+02:00 (7 years ago)
Author:
clem
Message:

STEP2 (3): remove obsolete features

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

    r8313 r8316  
    2828   USE dom_oce        ! ocean domain 
    2929   USE ice            ! LIM sea-ice variables 
    30    USE sbc_ice        ! Surface boundary condition: sea-ice fields 
    31    USE sbc_oce        ! Surface boundary condition: ocean fields 
     30   USE sbc_ice , ONLY : emp_oce, qns_oce, qsr_oce, qemp_oce, emp_ice, qsr_ice, qemp_ice, qevap_ice, alb_ice, tn_ice, cldf_ice 
     31   USE sbc_oce , ONLY : nn_fsbc, ln_ice_embd, sfx, fr_i, qsr_tot, qns, qsr, fmmflx, emp, taum, utau, vtau 
    3232   USE sbccpl         ! Surface boundary condition: coupled interface 
    3333   USE albedo         ! albedo parameters 
Note: See TracChangeset for help on using the changeset viewer.