Changeset 11000


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

Relabel name of the switch that turns on the fix.

Location:
branches/UKMO/dev_r5518_GO6_fix_zemp_ice/NEMOGCM/NEMO/OPA_SRC/SBC
Files:
2 edited

Legend:

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

    r10995 r11000  
    184184   LOGICAL     ::   ln_usecplmask          !  use a coupling mask file to merge data received from several models 
    185185                                           !   -> file cplmask.nc with the float variable called cplmask (jpi,jpj,nn_cplmodel) 
    186    LOGICAL, PUBLIC ::   ln_fix_sublimation_botmelt     ! Apply sublimation bug fixes (GMED#449) 
     186   LOGICAL, PUBLIC ::   ln_fix_sea_ice_fluxes     ! Apply sea ice flux bug fixes (GMED#449) 
    187187 
    188188   TYPE ::   DYNARR      
     
    262262         &                  rn_greenland_total_fw_flux, rn_greenland_calving_fraction, & 
    263263         &                  rn_antarctica_total_fw_flux, rn_antarctica_calving_fraction, rn_iceshelf_fluxes_tolerance, & 
    264          &                  ln_fix_sublimation_botmelt 
     264         &                  ln_fix_sea_ice_fluxes 
    265265      !!--------------------------------------------------------------------- 
    266266 
     
    332332         WRITE(numout,*)'  nn_cplmodel                         = ', nn_cplmodel 
    333333         WRITE(numout,*)'  ln_usecplmask                       = ', ln_usecplmask 
    334          WRITE(numout,*)'  ln_fix_sublimation_botmelt          = ', ln_fix_sublimation_botmelt 
     334         WRITE(numout,*)'  ln_fix_sea_ice_fluxes               = ', ln_fix_sea_ice_fluxes 
    335335         WRITE(numout,*)'  nn_coupled_iceshelf_fluxes          = ', nn_coupled_iceshelf_fluxes 
    336336         WRITE(numout,*)'  ln_iceshelf_init_atmos              = ', ln_iceshelf_init_atmos 
     
    17741774         IF ( TRIM(sn_rcv_emp%clcat) == 'yes' ) THEN 
    17751775            ! zemp_ice is the sum of frcv(jpr_ievp)%z3(:,:,1) over all layers - snow 
    1776             IF ( ln_fix_sublimation_botmelt ) THEN 
     1776            IF ( ln_fix_sea_ice_fluxes ) THEN 
    17771777               zemp_ice(:,:) = - frcv(jpr_snow)%z3(:,:,1) * zicefr(:,:) 
    17781778            ELSE 
     
    17801780            ENDIF 
    17811781            DO jl=1,jpl 
    1782                IF ( ln_fix_sublimation_botmelt ) THEN 
     1782               IF ( ln_fix_sea_ice_fluxes ) THEN 
    17831783                  zemp_ice(:,:   ) = zemp_ice(:,:) + frcv(jpr_ievp)%z3(:,:,jl) * a_i_last_couple(:,:,jl) 
    17841784               ELSE 
  • 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.