Changeset 11000 for branches/UKMO/dev_r5518_GO6_fix_zemp_ice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
- Timestamp:
- 2019-05-20T13:20:40+02:00 (5 years ago)
- 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 395 395 ELSE IF (ksbc == jp_purecpl) THEN 396 396 DO jl=1,ncat 397 IF ( ln_fix_s ublimation_botmelt) THEN397 IF ( ln_fix_sea_ice_fluxes ) THEN 398 398 ztmpn(:,:,jl)=qla_ice(:,:,jl)*a_i_last_couple(:,:,jl) 399 399 ELSE … … 412 412 ! Convert to GBM 413 413 IF (ksbc == jp_flx .OR. ksbc == jp_purecpl) THEN 414 IF ( ln_fix_s ublimation_botmelt) THEN414 IF ( ln_fix_sea_ice_fluxes ) THEN 415 415 ztmp(:,:) = botmelt(:,:,jl)*a_i_last_couple(:,:,jl) 416 416 ELSE … … 425 425 ! Convert to GBM 426 426 IF (ksbc == jp_flx .OR. ksbc == jp_purecpl) THEN 427 IF ( ln_fix_s ublimation_botmelt) THEN427 IF ( ln_fix_sea_ice_fluxes ) THEN 428 428 ztmp(:,:) = (topmelt(:,:,jl)+botmelt(:,:,jl))*a_i_last_couple(:,:,jl) 429 429 ELSE
Note: See TracChangeset
for help on using the changeset viewer.