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 11000 for branches/UKMO/dev_r5518_GO6_fix_zemp_ice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 – NEMO

Ignore:
Timestamp:
2019-05-20T13:20:40+02:00 (5 years ago)
Author:
dancopsey
Message:

Relabel name of the switch that turns on the fix.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_fix_zemp_ice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r10995 r11000  
    395395         ELSE IF (ksbc == jp_purecpl) THEN 
    396396            DO jl=1,ncat 
    397                IF ( ln_fix_sublimation_botmelt ) THEN 
     397               IF ( ln_fix_sea_ice_fluxes ) THEN 
    398398                  ztmpn(:,:,jl)=qla_ice(:,:,jl)*a_i_last_couple(:,:,jl) 
    399399               ELSE 
     
    412412!  Convert to GBM 
    413413            IF (ksbc == jp_flx .OR. ksbc == jp_purecpl) THEN 
    414                IF ( ln_fix_sublimation_botmelt ) THEN 
     414               IF ( ln_fix_sea_ice_fluxes ) THEN 
    415415                  ztmp(:,:) = botmelt(:,:,jl)*a_i_last_couple(:,:,jl) 
    416416               ELSE 
     
    425425!  Convert to GBM 
    426426            IF (ksbc == jp_flx .OR. ksbc == jp_purecpl) THEN 
    427                IF ( ln_fix_sublimation_botmelt ) THEN 
     427               IF ( ln_fix_sea_ice_fluxes ) THEN 
    428428                  ztmp(:,:) = (topmelt(:,:,jl)+botmelt(:,:,jl))*a_i_last_couple(:,:,jl)  
    429429               ELSE 
Note: See TracChangeset for help on using the changeset viewer.